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Élever à la dignité d'homme tous les individus de l'espèce 
humaine. 


Lazare Carnot 


- À lire 


Je vous conseille les liseuses à encre électronique non affiliées à un site web 
de vente de livrels. Même si elles sont plus chères, elles vous permettront de 
lire l'ensemble des auteurs présents dans mes livres. Bonnes lectures ! 


Les mots que vous ne comprenez pas, avec leur première lettre en majuscule, 
peuvent être trouvés dans le glossaire à la fin du livre. 

Les exemples peuvent se télécharger sur www.liberlog.fr/ftp. 

Les mots en gras indiquent des chapitres. 

Les mots en majuscules indiquent des groupements, des langages, des outils, 
des entités, des marques. 

Les mots entre guillemets indiquent des mots de LAZARUS, des mots à 
chercher sur le Web, ou des mots de votre environnement. 

Les mots entre crochets indiquent des mots à remplacer. 


© Objectifs du livre 


L'objectif du livre est d'apprendre facilement LAZARUS afin de créer 
rapidement un Logiciel. On met en avant la création de Composants, étape 
indispensable dans l'automatisation et l'optimisation. On donne la démarche 
pour créer très rapidement un Logiciel. Cette démarche consiste à éviter les 
copiés-collés pour créer des exécutables binaires sur toutes les plates-formes 
ou du Byte Code sur Android. 


Le Développement Rapide d'Applications est mis en avant dans ce livre. Le 
Développement Très Rapide d'Applications est l'aboutissement de tout savoir- 
faire automatisant la création de Logiciel. On prépare la création pour sauter 
une étape : La création du Logiciel à partir de l'analyse. C'est l'analyse qui 
crée le Logiciel grâce à votre moteur DTRA. 


Le livre a aussi pour objectif de promouvoir des sources qui sont parmi les 
meilleures sources laissées temporairement de côté. Le moteur de jeux ZEN 
GL et les serveurs web EXTPASCAL sont parmi les meilleurs savoir-faire de 
LAZARUS. II est inadmissible que les entreprises utilisant EXTPASCAL 
n'aient pas été mises en relation. 


.« © Licence 


Ce livre a été écrit par Matthieu GIROUX, inspiré par Jean-Michel 
BERNABOTTO pour le langage PASCAL. Ce livre est sous deux licences : 
CREATIVE COMMON BY SA et CREATIVE COMMON BY NC-ND. Les 
licences sont indiquées au début des chapitres ou au début des sous-titres. 
Vous pouvez utiliser ce livre gratuitement en citant l'auteur. Vous devez être 
bénévole pour imprimer les chapitres en licence NC-ND. 
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© Du même éditeur 


Alors vous voulez tout savoir sur l'économie ? 
Lyndon Larouche 

Mon Père m'a Dit 

Elliott Roosevelt 

Les Principes de la Science Sociale 

Henry Charles Carey 

Le Droit Des Gens Livres 1, 2, 3 et 4 

Emer De Vattel 


+ © Biographie 


Matthieu GIROUX aime l'écriture, avec la recherche de la vérité par le 
dialogue, utilisant des moments de réflexion, permettant de se souvenir et de 
se construire. 


Ayant écrit des poèmes puis des nouvelles, il a écrit un livre sur l'écriture. La 
démarche consistait a écrire pour les débutants, car celui qui apprend ou 
réapprend est lors de cet apprentissage le plus accessible aux débutants. Ce 
premier livre a permis de revoir la pédagogie d'un journal d'un réseau 
international. 


Il s'intéresse au Développement Rapide d'Applications, afin de trouver de 
meilleures techniques de programmation. Sauter une étape de conception pour 
la création de Logiciel est possible grâce à l'automatisation, maître mot de 
l'informatique dans l'entreprise. 


LAZARUS peut être une étape dans la réalisation d'un savoir-faire ou 
Framework. Un Framework sert à gagner un maximum de temps. Il faudra 
ensuite automatiser à partir d'autres Frameworks afin de mieux faire connaître 
le sien. Recherchez le partage pour vous enrichir et enrichir les autres. 


Ayant vu qu'il ne suffisait pas de gagner du temps, il parle d'économie de 
travail dans un livre sur l'économie. Cela permet de montrer comment on crée 
nos libertés et nos droits, grâce à l'économie physique. 


Devenu auto-éditeur, s'intéresser à la politique permet d'être encore plus 
convaincant en visant juste. Matthieu GIROUX a publié des livres phares sur 
l'économie physique, comme la méthode Larouche Riemann, ou des livres de 
Henry Charles Carey et d'Emmerich de Vatel. Il écrit des livres sur l'économie 
physique, sur la France, sur la créativité. 


LAZARUS FREE PASCAL 


CREATIVE COMMON BY SA 


« © Histoire 


Lazare était un disciple du Christ. Jésus Christ ressuscita Lazare. Depuis 
Lazare est associé à la légende du Phénix. Le titre LAZARUS FREE 
PASCAL vient des chercheurs français Blaise PASCAL puis Lazare 
CARNOT. 


Lazare est écrit Lazarus aux États-Unis. Lazare CARNOT a organisé la 
victoire de Napoléon afin de créer des écoles prestigieuses en France, 


notamment Polytechnique et les MINES, le CNAM. II a été associé à 
Gaspard MONGE et à sa pédagogie. 


Sadi CARNOT est dit Nicolas Léonard Sadi CARNOT aux États-Unis. C'est 
le fils de Lazare. Nicolas CARNOT, physicien-chimiste du XIXe, fut le 
surdoué de polytechnique. Il élabora réellement la thermodynamique grâce à 
son père, qui avait déjà élaboré un principe en admettant l’atome à partir de la 
chimie de LAVOISIER. 


Aucune des lois de la thermodynamique ne sont vraies. Les lois de la 
thermodynamique partent de la phrase de Lavoisier « Rien ne se perd, rien ne 
se crée, tout se transforme. ». Cette phrase est le premier principe de la 
thermodynamique. Elle ne peut être vraie puisqu'il faut bien que quelque 
chose existe. Seulement ces lois sont vraies en ne considérant que l’atome 
existant par avance et ne se créant plus. 


Lazare s'intéressait à l'économie de travail de l'énergie du feu. Le concept 
physique de dynamique au lieu d'effet venait par ailleurs de LEIBNIZ au 
début du XVIIL. LEIBNIZ dialogua avec Denis PAPIN pour sa première 
machine à vapeur. Denis PAPIN a aussi inventé la roue à aube, reprise par 
Benjamin FRANKLIN au XVII. Lazare CARNOT a rencontré FRANKLIN. 


Sadi CARNOT a dû partir aux États-Unis, à cause de concurrences dans 
l'armée napoléonienne. Les inventions toujours fonctionnelles de Denis 
PAPIN sont passées de la même manière aux oubliettes, à tel point qu'en 
France peu connaissent en 2014 Denis PAPIN et le travail des CARNOT. 


Le physicien-chimiste Sadi CARNOT laisse un travail achevé sur la 
thermodynamique, avec son seul ouvrage publié nommé "Réflexions sur la 
puissance des machines à feu”. Ce livre définit l'ensemble des axiomes de la 
thermodynamique. Les autres livres ont été brûlés. 


La communauté Lazarienne est décrite par la communauté Sainte-Rosalie. 
Nicolas CARNOT le physicien mourut dans une contagion aux Etats-Unis, 
pour que son livre soit réutilisé par KELVIN 35 ans plus tard. KELVIN était 


complaisant avec les doctrines libérales et malthusiennes. 


Nicolas Léonard Sadi CARNOT était passionné par la transformation du 
corps et de l'esprit. Mes livres de coaching créatif et compréhensif par les 
solutions sur la créativité et sur l'écriture vous permettent de commencer cette 
transformation. Ce fut ensuite Vladimir VERNADSKI qui impacta la 


physique quantique. 


Article sur Lazare CARNOT sur www.solidariteetprogres.fr. 
Vidéos gratuites : 
*_ Vidéo de Michel Serres sur Sadi Carnot 
* Cours Sadi Carnot 
* Moteur à vapeur de Denis PAPIN à Blois et en Bretagne 
Livre Libre sur la thermodynamique chez www.framabook.org. 
Livre "Réflexions sur la puissance des machines à feu" 
www.wikisource.fr. 


sur 


+ © Pourquoi le langage PASCAL ? 


Le PASCAL est un langage des plus simples et des plus ingénieux. Il permet 
de trouver facilement les erreurs. Le Compilateur FREE PASCAL permet de 
créer des exécutables indépendants de librairies complémentaires. Vous 
pouvez ainsi avec plus facilement diffuser vos Logiciels. 

LAZARUS est basé sur un langage nommé FREE PASCAL. FREE PASCAL 
est un Compilateur PASCAL Orienté Objet écrit à l'origine en C. 
L'assembleur, le langage le plus proche de la machine, s'ajoute cependant au 
FREE PASCAL, notamment pour WINDOWS et LINUX. 

Le langage FREE PASCAL possède une grammaire et des instructions 
PASCAL, basées sur l'algorithmique. C'est le langage permettant d'apprendre 
la programmation. Il suffit de traduire les mots anglais du PASCAL vers le 
français pour retrouver le langage de l'algorithmique. Le PASCAL est donc 
enseigné pour cette raison particulière. 


L'algorithmique du PASCAL permet de facilement trouver les erreurs, afin de 
se concentrer sur l'évolution de son intuition ou recherche de vérité, pour 
évoluer plus facilement en précisant alors sa démarche. On peut alors 
envisager l'ingénierie et ses enjeux de gain de temps grâce à la simplicité. 
Sinon le langage PASCAL permet, une fois acquis, de jouer facilement sur 
l'utilisation des mots. on simplifie alors sa compréhension de la science. En 
plus du latin, ce langage permet de communiquer facilement dans son 
domaine scientifique, avec les informaticiens aussi. 


+ © Pourquoi choisir LAZARUS ? 


LAZARUS FREE PASCAL est utilisé par les industries se fournissant chez 
ST MICRO ELECTRONICS pour créer ses interfaces embarquées. En effet, 
le compilateur en assembleur FREE PASCAL permet d’accélérer le cross- 
byte-code de ses processeurs. VEGA a sans doute explosé deux fois à cause 
du cross-byte-code incompatible avec le byte-code JAVA, l'inverse étant 
possible. L’accélération des SMARTPHONES ANDROID a été possible 
grâce à FREE PASCAL. II suffisait pour cela de permettre la compatibilité 
avec JAVA. 


Si vous voulez apprendre la programmation d'interfaces homme-machine 
LAZARUS est fait pour vous. LAZARUS c'est un EDI Libre de DRA. Un 
EDI est un Environnement de Développement Intégré. Un EDIT sert à faciliter 
la programmation. Le DRA est le Développement Rapide d'Applications. Le 
DRA permet de créer vite et bien les programmes. LAZARUS est multi- 
plates-formes, disponible donc sur un maximum de machines. 


Le projet LAZARUS a commencé en 1999. II est actuellement préférable 
d'utiliser LAZARUS plutôt que KYLIX ou DELPHI XE8. KYLIX est un 
DELPHI sous LINUX créé en 2001. KYLIX a été abandonné dès sa troisième 
version parce qu'il était propriétaire dans le monde du Logiciel Libre. 


DELPHI est beaucoup enseigné dans les écoles françaises. Il est aussi utilisé 
par les industries et par les éditeurs parce qu'il est efficace. LAZARUS ne 
possède pas de licence payante. Mais son atout décisif en 2015 est d'être 
présent sur les deux bureaux majeurs disponibles sur GNU LINUX ainsi que 
sur WINDOWS et les deux bureaux MAC OSX. 


Vous pouvez adapter des Composants DELPHI pour que vos Logiciels 
deviennent multi-plates-formes. Ils seront donc utilisables sur beaucoup de 
machines. DELPHI a été créé en 1995 par BORLAND), avant LAZARUS en 
1999. LAZARUS a bénéficié du partage de l'équipe BORLAND. 


LAZARUS est compatible avec le compilateur de DELPHI à 99 %. 
Cependant le verbiage récent du compilateur DELPHI a créé certains 
Frameworks PASCAL Objet inspirés du verbiage de la programmation 
JAVA, incompatible avec LAZARUS. JAVA et FREE PASCAL permettent 
cependant de simplifier la sémantique des listes. Les listes PASCAL devenues 
typées s'inspirent de JAVA. 


LAZARUS c'est une utilisation des librairies Libres avec une interface facile à 
utiliser, l'algorithmique PASCAL. LAZARUS est un Logiciel Libre et gratuit, 


fonctionnant sur le partage. Le partage permet la sûreté d'un Logiciel. Les 
deux licences libres utilisées par LAZARUS sont la LGPL et la GPL pour 
l'EDI. Participer à LAZARUS nécessite de partager vos Sources. 

LAZARUS c'est le Développement Rapide d'Applications par les licences 
libres. Une Source non partagée dort. Ainsi, 80 % des Sources des Logiciels 
Propriétaires sont Libres. 


Un Composant est une partie réutilisée et centralisée de votre Logiciel. La 
gestion des Composants a été améliorée sur LAZARUS. Les problèmes 
connus de gestion de Composants sur DELPHI ont été réglés. LAZARUS est 
fait pour gagner un maximum de temps dans la création de Logiciels 
complexes ou simples, avec les Composants, la complétion, le travail du code 
automatisé, etc. Il peut aussi être utilisé pour apprendre facilement la 
programmation (cf fin du chapitre Programmer facilement). 


Un Logiciel Client/Serveur c'est en quelque sorte un Logiciel qui n'a pas 
besoin de navigateur web pour fonctionner. Si vous voulez créer ce genre de 
Logiciel, vous pouvez compter sur des librairies de Composants visuels, 
permettant de réaliser simplement vos interfaces exécutables. Ces exécutables 
sont directement compris par la machine. LAZARUS permet de créer les 
interfaces des mobiles et des ordinateurs. 


Si vous voulez créer votre jeu multi-plates-formes rapidement, LAZARUS 
possède des librairies permettant de créer des jeux sur 2 Dimensions ou sur 3 
Dimensions. On utilise LAZARUS pour créer des Logiciels graphiques multi- 
plates-formes économiques. Il existe des librairies permettant de lire des 
formats de fichiers 2D ou 3D, Libres ou propriétaires, pour WINDOWS, 
LINUX, MAC OSX, i0$S, ANDROID. Des librairies 3D Libres nécessitent 
continuellement la participation. 


Les Frameworks LAZARUS ont certes peu de concurrence, mais ils sont 
convaincants dès leur début. Les équipes LAZARUS FREE PASCAL et 
anciennement BORLAND, recherchent la simplicité. Cela fait que les 
Frameworks de DRA ont peu besoin de simplifier leur utilisation. Les 
premiers Frameworks PASCAL Objet sont très souvent les bons. 


L'atout principal du PASCAL c'est l'algorithmique avec les Composants de 
DRA. Cet ensemble permet d'évoluer rapidement selon son intuition. On 
devient alors un très bon ingénieur Objet. L'atout de LAZARUS c'est 
l'association par les licences Libres et le partage, venant notamment de 
l'équipe BORLAND et des indépendants. 


+ © Pourquoi le DRA est-il 
important ? 


La nécessité de l'utilisation du Développement Rapide d'Applications est 
simple et large. Notre économie est basée historiquement et scientifiquement 
sur l'économie de travail. Le DRA simplifie la programmation pour accélérer 
la création logicielle, afin de créer notamment des applications LAZARUS 
rapides et intuitives, diffusées facilement parce que Libres, ou bien parce que 
basées sur des Sources Libres. 


La création de l'ergonomie sur un outil de DRA se fait de deux manières : Par 
la souris accompagnée du clavier pour débuter ou pour personnaliser. Puis les 
Composants de DRA sont améliorés pour être automatisés selon l'économie 
de travail. 


On peut alors facilement améliorer ce que l'on a programmé, grâce à 
l'architecture, avec la construction, en décrivant des bâtiments par exemple, 
selon la simplicité de la pédagogie par l'écriture notamment (cf livres 
Comment Écrire des Histoires, Favoriser la Créativité). 


- © Architectures FREE PASCAL 


Avec LAZARUS, en 2017, vous pouvez créer des Interfaces Homme- 
Machine fonctionnant sous LINUX KDE et GNOME, WINDOWS, MAC 
OSX, i0$S, ANDROID, WIN CE, WII. 


Vos exécutables peuvent aussi fonctionner sous les systèmes BSD, UNIX, 
OSX, sur certains Systèmes de processeurs spécifiques aussi. Pour certaines 
plates-formes il est nécessaire de participer au projet LAZARUS. 


Les programmes utilisent actuellement une architecture 32 bits ou 64 bits. On 
peut schématiser cela comme 32 ou 64 voies d'autoroutes, permettant donc 
d'accélérer les calculs. 


Ainsi une adresse 32 bits peut adresser jusqu'à 232 entiers de 32 bits. Une 
adresse 64 bits peut adresser jusqu'à 264 entiers de 64 bits. Une adresse 64 bits 
ne fonctionne pas sur une architecture 32 bits. Par contre une adresse 32 bits 
peut fonctionner sur une architecture 64 bits, dans la limite de ses 
possibilités. 


LAZARUS fonctionne sur les architectures 32 et 64 bits. Cependant vous 
devez vérifier que les Composants complémentaires fonctionnent en 64 bits. 
En effet, en 2013, les serveurs fonctionnent en général en 64 bits. C'est 
cependant toujours l'architecture 32 bits pour laquelle s'inspire l'architecture 
64 bits. 


+ © Applications Libres LAZARUS 


Une Application Open Source n'était que partagée. Mais les Applications 
Open Source sont devenues Libres donc elles peuvent s'utiliser, s'étudier, se 
distribuer et se modifier grâce au partage. 


Il existe des applications multi-plates-formes faites avec LAZARUS. 
LAZARUS est choisi pour le multi-plates-formes Libre. 


ANCESTROMANIA permet de créer votre généalogie. Avec, on peut 
imprimer beaucoup de documents de suivi. Il est possible d'exporter un 
GEDCOM, pour www.geneanet.org aussi, pour son propre site web, etc. 


LAZPAINT est un des projets LAZARUS des plus prolifiques. Il dispose en 
effet d'une librairie complète de dessin, de Composants graphiques et un peu 
plus... 


SKYCHART et VIRTUAL MOON sont des applications scientifiques Libres 
en 3 dimensions. Il y a aussi un Logiciel libre de retouches photos pour 
l'astronomie. Vous pouvez visualiser vos scans IRM grâce à des Logiciels 
libres créés avec LAZARUS. 


Différents Logiciels de gestion vous permettent de gérer votre café, entreprise 
ou restaurant. Vous pouvez créer rapidement un Logiciel de gestion avec les 
savoirs-faire EXTENDED, MAN FRAMES et XML FRAMES, nécessitant 
une participation, comme tout savoir-faire de DRA. 


PEA ZIP est un compresseur Libre concurrent de 7 ZIP, permettant donc de 
regrouper des fichiers afin qu'ils prennent moins de place. 


Il existe des applications Libres permettant de gérer les données FIREBIRD, 
PARADOX, ORACLE, MY SQL, MARIA DB, ou SQLITE. 


ORTHONET est un Logiciel éducatif Libre. Des professeurs ont choisi 
LAZARUS. Il existe aussi différents utilitaires Libres pour la vidéo ou le son. 


Des sites Web vous permettent de télécharger pour participer à ces Logiciels 
Libres. Vous avez deux listes de Logiciels utilisant LAZARUS avec ces 
liens : 

http://wiki.lazarus-ide/Projects_using_LAZARUS/fr 


GOOGLE crée une intelligence artificielle avec PASCAL. Vous pouvez 
apprendre l'intelligence artificielle avec un autre livre. Par contre nous vous 


apprenons ici l’optimisation PASCAL permettant d’être aussi rapide que le 
C. 


- © Du PASCAL orienté Objet 


L'Orienté Objet signifie que l'on utilise l'Objet pour ce qu'il a de plus utile et 
efficace. La programmation par Objets est la programmation la plus proche de 
l'humain. Cette programmation regroupe des parties du programme dans des 
Objets. On peut ainsi facilement représenter son programme en entités. 


Comme tout outil Objet de DRA, LAZARUS est accessible. Il peut cependant 
vous emmener, petit à petit, vers les Composants. Vous apprenez alors 
réellement l'Objet, ses capacités et repères surtout, permettant d'améliorer ce 
que vous utilisez. 


Les entités ou Objets du PASCAL Orienté Objet ont un comportement, une 
hiérarchie, des valeurs. Le PASCAL Objet possède des Objets pouvant être 
enregistrés comme Composants. Les Composants PASCAL améliorent le 
Polymorphisme du PASCAL Orienté Objet, cette capacité des Objets à 
accepter plusieurs formes. 


LAZARUS ne fait que reprendre les instructions existantes du PASCAL 
Orienté Objet, grâce au Compilateur multi-plates-formes FREE PASCAL, 
point de départ de LAZARUS. Le Compilateur FREE PASCAL évolue 
maintenant grâce à LAZARUS. 


Nous vous apprenons à connaître les instructions permettant de réaliser votre 
Logiciel adapté à vos besoins. Pour aller plus loin, connaître l'Objet et le 
détail des différentes architectures logicielles permet d'améliorer LAZARUS. 


- © La communauté 


LAZARUS dispose d'une communauté active. Cette dernière ajoute au fur et à 
mesure de nouvelles possibilités. Des communautés LAZARUS s'ouvrent 
régulièrement dans le monde. En 2015, suite au manque de sûreté de 
WINDOWS, beaucoup d'entreprises ont migré vers LINUX dans le monde. 
Ainsi LAZARUS et les paquets EXTENDED ont été téléchargés et choisi en 
2015. Des savoir-faire payants se sont alors portés vers LAZARUS. 


Avec le site web www.freepascal.org, Il existe un wiki LAZARUS, ainsi 
qu'un espace de documentation français. Un espace de traduction facilite la 
compréhension de LAZARUS. 


Il y a aussi deux Roadmap en anglais, l'une qui résume sur www.lazarus- 
ide.org, mais aussi une autre participative sur bugs.freepascal.org,. Vous 
pouvez participer à ces espaces, mais surtout donner vos avis sur le forum 
LAZARUS. 


+ © LAZARUS est partagé 


Une œuvre est Libre si on peut l'exécuter, la comprendre, la redistribuer, la 
modifier librement. Contrairement aux Logiciels propriétaires, où on achète 
sans savoir ce qui est induit dans l'achat, le Logiciel Libre permet la 
participation, afin que le Logiciel évolue par le développeur en fonction de la 
demande utilisateur. Les Licences Libres servent à pérenniser les acquis, pour 
les partager et les redistribuer au maximum de pays. 


LAZARUS est un Logiciel Libre. Vous pouvez donc intégrer en théorie le 
projet LAZARUS, après avoir suffisamment compris l'humain, puis 
l'ingénierie des Composants, ou celle d'un nouvel environnement ou un 
nouveau type de bureau, voire du langage assembleur, de sa plate-forme. 


Les sites comme  www.sourceforge.net, www.bitbucketcom et 
www.github.com diffusent des Logiciels Open Source. SOURCEFORGE, 
BITBUCKET et GITHUB permettent en effet de partager vos Sources de 
Logiciel pour être vu et référencé. Alors d'autres développeurs peuvent 
améliorer votre Logiciel, car les Sources sont la recette de votre Logiciel. 


Sourceforge est le site web qui contient les versions les plus à jour de 
LAZARUS. Sourceforge permet de disposer d'une mise à jour des Sources. 
Ces fichiers Sources n'ont pour certaines pas passé les tests. 


- © Les versions de LAZARUS 


On a intérêt à mettre à jour LAZARUS, afin de disposer des dernières 
améliorations Libres. Les développeurs LAZARUS gèrent des numéros de 
version. 


Le Versioning LAZARUS se présente avec des chiffres, disposés de cette 


A.B.CC-D 


Quand vous voyez RC dans la version, il s'agit d'une version de tests servant à 
rapporter des bugs sur la page d'annonce de la Release Candidate. Après avoir 
vérifié la date de la RC, il faut alors aller sur le forum pour voir les erreurs ou 
en rajouter. 


LAZARUS évolue continuellement. Évitez certaines versions. 

Le premier nombre nommé "A" présente une version majeure de LAZARUS. 
Par exemple la version 1.0.00-0 de LAZARUS permet de traduire entièrement 
tout Composant DELPHI 6 vers LAZARUS. Plus ce chiffre ou nombre est 
grand et récent, plus cette version est recommandée. 


À partir de Lazarus 3, le deuxième nombre présente la maturité de la version 
mineure. Si le nombre est pair, la version est stable et utilisable, car elle a été 
testée. Sinon le deuxième nombre présentait une version mineure de 
LAZARUS. Plus ce nombre ou chiffre était grand, plus cette version était 
recommandée. Si le deuxième chiffre était impair 1l s'agit d'une version de 
transition. Le troisième ou quatrième chiffre était alors impair. 


À partir de Lazarus 3, le troisième nombre montre une création d'une version 
stable de LAZARUS, En fait le troisième nombre ne vous apporte que la 
réparation de Bogues ou erreurs trouvées, ce qui est déjà intéressant, rien de 
nouveau sinon. Si le quatrième chiffre est impair la version de LAZARUS n'a 
pas été testée. Elle a cependant de grandes chances d'être suffisamment stable. 


Pour les Lazarus en dessous de Lazarus 3, le troisième nombre présente la 
maturité de la version mineure. Si le nombre est pair, la version est stable et 
utilisable, car elle a été testée. Si le troisième nombre était impair, il s'agissait 
d'une version non testée, créée un jour donné. Les versions à troisième 
nombre impair ne voulaient rien dire sans leur jour de création. Les versions à 
troisième nombre impair permettaient de montrer un aperçu de la prochaine 
version paire. Ces versions n’étaient jamais recommandées. Avec on avait la 
possibilité de créer des Composants de LAZARUS avec une grammaire FREE 
PASCAL récente. 


Le quatrième nombre montrait une création d'une version stable de 
LAZARUS, à partir d'une base plus récente. En fait le nombre chiffre ne vous 
apportait que la réparation de Bogues ou erreurs trouvées, ce qui était déjà 
intéressant, rien de nouveau sinon. Si le quatrième chiffre était impair la 
version de LAZARUS n'avait pas été testée. Elle avait cependant de grandes 
chances d'être suffisamment stable. 


Il faut attendre ou participer à une nouvelle version de LAZARUS pour que le 
compilateur FREE PASCAL s'améliore, que les Composants standards 
LAZARUS s'améliorent. 


Ne vous en faites pas pour l'attente, car de nouvelles applications voient le 
Jour chaque semaine ou chaque mois. Vous pourrez les étudier s'ils sont Open 
Source, afin de créer vos propres Composants si nécessaire. 


L'évolution de votre Logiciel vers une nouvelle version de LAZARUS semble 
aisée. Il faudra cependant disposer des sources pour les Composants 
abandonnés, ou bien ceux ayant mal évolué, ce qui est cependant plus rare. 
C'est pour cela qu'il est intéressant de demander les sources des Composants, 
très souvent accessibles en PASCAL. Cela permet de rendre compatible ses 
Composants avec la dernière version de LAZARUS. II n'y a souvent que peu 
de hoses à faire. 


Vous avez la possibilité de télécharger un "snapshot LAZARUS" WINDOWS 
ou REDHAT de la dernière version déboguée de LAZARUS. Pour les autres 
plates-formes, les Sources du "snapshot" permettent de créer un nouveau 
LAZARUS. 


+ © Télécharger LAZARUS 


Téléchargez la dernière version de LAZARUS pour votre environnement, sur 
la page de téléchargement du projet LAZARUS à http://sourceforge.net/ 
projects/lazarus. 


Vous pouvez par la même occasion voir l'avancement du projet à http:// 
www.lazarus-ide.org, dans la page "Roadmap”. 


Si vous souhaitez connaître l'état de la prochaine version allez à http:// 
bugs.freepascal.org. Ce site en anglais permet aussi de savoir si une version 
d'au moins une semaine est utilisable dans vos Logiciels. 


Vous pouvez aussi télécharger l'IDE CODE TYPHON, projet d'une entreprise 
privée. Ce clone, plus récent mais d'une entreprise cherchant des bénéfices 
monétaires, regroupe les Composants multi-plates-formes FREE PASCAL, à 
www.pilotlogic.com. 


Il est possible de télécharger sa version LAZARUS du jour en tapant 
"snapshot lazarus" sur un moteur de recherche. Un snapshot sert à tester des 
Composants LAZARUS en cours de publication. 


Si vous souhaitez participer à LAZARUS :il est possible de télécharger 
directement les Sources SVN sur le site Web de sourceforge à http:// 
sourceforge.net/projects/lazarus, dans la partie "Develop". 


+ © Installer LAZARUS 


+ © M Sous LINUX 


GNU LINUX centralise ses paquets de Logiciels. Ainsi un Logiciel GNU 
LINUX est très léger, car il utilise des librairies dans d'autres entités appelées 
Paquets. GNU signifie "GNU is Not UNIX". UNIX a été diffusé en semi-libre. 
La partie Libre d'UNIX c'est dorénavant GNU LINUX ou FREE BSD. 


Sachez que LAZARUS utilise des librairies écrites en €, avec aussi de plus en 
plus d'assembleur. Vous devez disposer des librairies disponibles sur LINUX 
par défaut. LAZARUS nécessite le bureau GNOME, voire QT, aussi nommé 
KDE. 


Pour les développeurs ou les débutants il est conseillé d'utiliser un GNU 
LINUX qui se met régulièrement à jour ou avec un système de paquet 
largement utilisé, comme LINUX MINT, EMMABUNTU, LINUX 
UBUNTU, LINUX DEBIAN. LINUX DEBIAN, avec son format de Paquets 
portant l'extension "deb", est la base de ces Distributions GNU LINUX. 


Une version moins récente est disponible dans votre gestionnaire de paquets. 
Pour disposer de la version la plus récente possible, ajoutez le serveur de tests 
à votre gestionnaire de paquets. Avant, vérifiez si la version de 
www.sourceforge.net est plus récente que celle de votre gestionnaire. La 
communauté UBUNTU vous expliquera cette gestion de dépôts alternatifs 
appelés PPA. 


° ©O M MH Démonstration LAZARUS sous GNU 
LINUX 


Afin de découvrir le gestionnaire de Paquets, une version de LAZARUS est 
dans le gestionnaire de paquets. Il suffit d'installer le paquet "LAZARUS" 
graphiquement. Ou bien tapez cette commande sur DEBIAN en mode "root" 


(Administrateur) : 


apt install lazarus 


Sur DEBIAN ou d'autres LINUX, pour accéder au mode "root", tapez "su 
puis Entrée. Puis tapez les commandes "root". C'est en quittant par la 
Commande "exit" ou en fermant le Terminal que l'on sécurise son ordinateur 
des intrus. 


Sur UBUNTU ou d'autres LINUX, le mode "root" s'obtient en précédant une 
commande par le mot “sudo”, puis un espace évidemment. Une horloge que 
le programmeur appelle Timer va alors déterminer la sortie automatique de 
l'Administration par la commande. 


© D MH Installation de la dernière version 
stable 


En fonction de la Roadmap du site web bugs.freepascal.org, téléchargez la 
dernière version de LAZARUS sur lazarus-ide.org, puis sur 
www.sourceforge.net. 


Après avoir désinstallé tous les paquets fp- et lazarus, on installe le ou les 
quelques paquets par l'outil visuel ou par cette commande DEBIAN en mode 
( t' r 

apt remove fp-* 

dpkg -i liens-vers-vos-paquets-fpc et-lazarus 


Avec le sytème de Paquet, on télécharge ensuite les éventuelles librairies 
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DECESSAUES 
apt install -f 


+ © M Sous WINDOWS 


LAZARUS s'installe en vous demandant de relier les fichiers PASCAL ou 
LAZARUS au Logiciel LAZARUS. Notez le répertoire d'installation de 
LAZARUS. 


+ ©  Æ Mettre à jour sous WINDOWS 


Avant de mettre à jour LAZARUS vers une nouvelle version, supprimez je 
répertoire "C:\lazarus" sous WINDOWS. 


© Sous MAC OSX 


Le MAC a été créé en PASCAL. Puis l'environnement a été réécrit en C pour 


donner MAC OS. 


LAZARUS utilise les interfaces MAC nommées CARBON et les nouvelles 
interfaces COCOA. Les nouvelles versions de MAC OSX n'utilisent que 
COCOA. 


Pour installer LAZARUS vous devez avant télécharger XCode, nommé aussi 
"Developer Tools". Votre XCode doit correspondre à la version de votre 
MAC OSX. 


Si vous disposez d'un vieux MAC OSX, vous devez chercher quelle version 
de MAC OSX vous avez. Au démarrage, allez en haut à gauche dans la 
pomme puis dans le menu À propos. 


Cherchez alors sur un moteur de recherche "Xcode MAC OSX 
votre.version.de. MAC" afin de trouver la version de Xcode nécessaire. Puis 
cherchez sur un moteur de recherche comment télécharger XCode : "XCode 
votre.version.de.xcode". 


Une fois que XCode est installé il suffit d'ouvrir les fichiers dmg téléchargés 
sur le lien sourceforge de lazarus-ide. Ensuite installez le paquet "pkg”, 
d'abord de Free PASCAL Compiler ou fpc, puis de LAZARUS. 


Créez vos scripts d'installation UNIX, afin de gagner du temps. MAC OSX est 
un UNIX-BSD bridé. 


+ © Configurer LAZARUS 


LAZARUS peut se recompiler presque entièrement par défaut. Allez dans le 
menu "Outils" puis "Configurer la création de LAZARUS". Choisissez le 
profil "Nettoyer + Tout créer”. IL faudra retrouver le profil "EDI Normal" 
ensuite. 


"Nettoyer et tout créer" est à choisir lorsque des Sources LAZARUS en 
version d'essai ont été installées. Le nettoyage consiste à supprimer les unités 
compilées de la plate-forme. Pensez à modifier le répertoire de LAZARUS 
dans "Configuration" puis "Options". 


LAZARUS utilise aussi les paquets avec un gestionnaire de paquets en ligne 
nommé onlinepackagemanager. Aïnsi vous reconstruisez l'exécutable de 
LAZARUS en permettant d'installer de nouveaux Composants, c'est à dire ce 
qui composera votre Logiciel. 


Y Configurer la création de Lazarus x 


| Création || Informations 


Profil à créer || 
Type de com) Débogage de l'EDI 


q5 EDI optimisé | 

| en | Rd | 
7 Nettoyer + Tout créer | 
Options : 


Répertoire cible : 
a | 
Définitions Nettoyer 
[_] Nettoyer les fichiers communs 
Paramètres communs 
| Éditer les définitions | (E] Redémarrer après la création de l'EDI (f] Confirmer avant la création  (f] MAJ. de "revisio 


|Créer| | Créer plusieurs modes | Enregistrer les paramètres | |Annuler | | 


"Construire l'ÉDI avec les paquets” 


+ © Sauvegarder LAZARUS 


Tout informaticien digne de son métier doit sauvegarder ses créations et ses 
installations en les dupliquant sur un autre support. 


Pour sauvegarder LAZARUS ïl suffit de copier-coller son dossier de 
personnalisation. 


Le répertoire de personnalisation stocke notamment les paquets installés dans 
des fichiers XML commençant par miscellaneous et packages. Il suffit alors de 
sauvegarder ses composants téléchargés stockés dans un dossier spécifique 
pour restaurer rapidement LAZARUS. 


° ©  HÆ Sur GNU LINUX 


Allez dans votre "Dossier personnel" ou bien sur un raccourci de dossier 
contenant votre nom ou prénom. 


Toutes les informations personnelles de LINUX sont dans le dossier racine "/ 
home”. Il est d'ailleurs intéressant qu'il soit seul sur une très grosse partition. 
La partition obligatoire principale "/" ne nécessitera que 17 à 40 Go de place 
sans "/home", place suffisante pour installer des applications. Pour une 
meilleure sécurité, vous pouvez séparer le dossier "/tmp" dans une partition de 
5 Go. Il faudra cependant rediriger les dossiers de travail "/tmp" vers "/ 
home”. 


Il est préférable de créer une grande partition "/home" pour les données 
personnelles. Cela permet d'installer n'importe quel LINUX. Une partition 
LINUX obligatoire est swap et nécessitera autant de place que la mémoire 
vive sur votre ordinateur. C'est une mémoire de travail. 


Tous les fichiers et dossiers cachés sont identifiés par un point en premier 
caractère. Dans votre navigateur de fichier LINUX accessible dans les 
raccourcis, c'est en général le menu "Affichage" qui permet de montrer les 
fichiers et dossiers cachés. 


Le dossier caché "/home/mon-compte/.lazarus" est organisé pareillement à 
celui de WINDOWS. Seuls vont changer l'exécutable LAZARUS compilé et 
les chemins de binaires. 


Le séparateur de chemin est inversé sur LINUX, comme vous le voyez ci- 
avant. Vous n'avez pas non plus de lettre de lecteur, plus ennuyante que 
réellement utile. Par contre les premiers répertoires commençant par "/" sont 
les répertoires installés par le système. Il existe une constante 
"DirectorySeparator" permettant le passage de WINDOWS à UNIX pour 
créer vos chemins LAZARUS. 


° © HÆ Sur WINDOWS 


Allez dans votre dossier de compte personnel. Dans le menu WINDOWS, 
c'est le menu avec votre prénom ou nom. 


Ensuite il s'agit de montrer les dossiers et fichiers cachés. C'est soit dans 
Organiser ou Personnaliser. Comme WINDOWS évolue peu, c'est 


l'organisation de WINDOWS qui fait croire qu'il change. 


Dans votre compte utilisateur situé dans "Documents and Settings”, montrez 
les fichiers cachés dans un menu. Dans les données d'applications vous 
pouvez alors chercher "lazarus". Le répertoire caché "lazarus" est à copier- 
coller sur un stockage externe, comme une clé USB par exemple. 


+ © Télécharger la toute dernière 
version 


Les développeurs LAZARUS fournissent des Release Candidate pour de 
bonnes raisons. Ils veulent savoir si leur version stable va être opérante sur 
l'ensemble des architectures. 


Il peut arriver que des bugs passent les mailles des filets des nouvelles 
versions majeures au quatrième chiffre peu élevé. Des versions plus stables 
sont créées avec les versions mineures. 


Programmer facilement 
CREATIVE COMMON BY SA 


+ © Créer un Logiciel 


Après avoir créé dans "Fichier" un "Nouveau" projet "Application" allez dans 
l'Editeur de Source". 


Nouveau... 


Simple CGI M Description 
FPCUnit Test Application 
lément hérité. Un programme graphique 
Inherited Cor! || LCL/FreePascal. Le fichier 


rojet programme est 


Application automatiquement géré par 
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aquet 
Paquet 


LE Tnmnlata nraiall" 
> 


ÿ£ Aide | | # Annuler || €10K | 


EE 


3 me 


. 


EEFEEEG EE E 


ne) 


| 


Nouvelle "Application" LAZARUS 


Vous voyez une Source créée automatiquement, ainsi qu'une fenêtre qui ne 
réagit pas comme une fenêtre habituelle. C'est votre base de travail permettant 
de créer un programme fenêtré, avec une grille en pointillés permettant de 
travailler graphiquement. 


Allez dans le menu "Projet" puis dans "Inspecteur de Projet". 

Vous voyez les fichiers qui ont été créés automatiquement. Le fichier 
commençant par "Unitl" c'est le formulaire de votre nouveau projet en Source 
PASCAL Objet. 


Vous voyez aussi un fichier “pr”. Cette extension de fichier signifie 
LAZARUS Project Resources, ou Ressources d'un Projet LAZARUS. Ce 
fichier, liant le projet vers les ressources LAZARUS, permet de compiler et 
d'exécuter votre formulaire. 


Pour compiler et exécuter ce projet vide, cliquez sur le triangle flèche en bas à 
gauche de la barre d'outils LAZARUS. Vous voyez la même fenêtre vide sans 
les pointillés de présentation. C'est votre formulaire qui est exécuté. Vous 
pouvez le déplacer, l'agrandir, le diminuer et le fermer, contrairement au 
formulaire précédent. 


Il s'agit bien d'un programme exécuté. Pour exécuter ce programme avec ce 
formulaire le Compilateur FREE PASCAL a compilé le formulaire grâce à 
ces Sources et celles de LAZARUS. 


LAZARUS c'est un Environnement de Développement Intégré. Vous avez eu 
peu de programmation à effectuer pour créer cette application. 


° © MH Le nom d'unité 


Allez dans l''Éditeur de Sources". Placez-vous au début de l'unité du 
formulaire. 


Du Code PASCAL Objet commence toujours par la clause "Unit" reprenant 
lettre pour lettre le nom du fichier PASCAL. Le nom d'unité se change dans 
"Fichier", puis "Enregistrer sous". 


En général chaque instruction PASCAL est terminée par un ";". Il existe de 
rares exceptions pour lesquelles le Compilateur vous avertit. 


Pour la compatibilité UNIX ou LINUX :il est préférable de renommer les 
noms d'unités en minuscules. 


° © M La clause "uses" 


Ensuite vous avez sûrement à réutiliser des existants. La clause "uses" est faite 
pour cela. Elle permet de chercher les existants créés par l'équipe LAZARUS 
ou bien par un développeur indépendant de LAZARUS. 


Lorsque vous ajoutez un Composant grâce à l'onglet des Composants cela 
ajoute aussi l'unité du Composant dans la clause "uses". Aussi un lien est créé 
dans le projet vers le regroupement d'unités du Composant. Ce regroupement 
d'unités est nommé "paquet" ou "package" en anglais. Ce paquet devient une 
condition du projet. 


+ © HE L'exemple 
L'exemple consiste à créer une fenêtre permettant d'afficher "Hello World !". 
Nous allons éditer un nouveau projet. 


Démarrez LAZARUS. 
Allez dans "Fichier" puis "Nouveau". Choisissez "Application". 


Tout d'abord nous allons rechercher l'unité "Dialogs” avec beaucoup de 
fainéantise. 

Placez-vous après une virgule de la clause "uses". Comme chaque instruction, 
Cette dernière se termine par un ";". 

En respectant la présentation LAZARUS, tapez uniquement “di”. 

Ce qui va suivre ne fonctionne que si votre Code Source est correct, du début 
de l'unité jusqu'à votre ligne éditée. 

Appuyez en même temps sur "Ctrl" avec la barre d'espacement. Relâchez. Il 
s'affiche une liste d'unités LAZARUS. Choisissez "dialogs" avec les flèches et 
la touche "Entrée". N'oubliez pas de placer ensuite une virgule pour ne pas 
créer d'erreur de compilation. Vous avez ajouté l'unité Dialogs. 


Pour voir ce que vous avez ajouté, maintenez enfoncé "Ctrl" tout en cliquant 
sur l'unité "Dialogs". L'unité "Dialogs" s'affiche. Vous allez vers la Source liée 
en faisant de cette manière. LAZARUS va chercher ce qu'il connaît grâce aux 
liens de vos projets et un Code correct, avec de la mémoire aussi. 


On voit que la clause "uses" de "Dialogs" contient d'autres unités. Celles-ci 
sont aussi ajoutées à votre projet, si elles ne l'étaient pas déjà. En effet des 
unités obligatoires sont toujours utilisées. 


Toute écriture de Code ajoute des informations à votre exécutable, avec en 
plus des unités qui sont intégrées. Votre programme compilé contient 
beaucoup de Code, mais il est dépendant de peu de librairies. En effet, votre 
exécutable aura intégré les sources incluses que vous pouvez consulter. 


Grâce aux onglets de l'"Éditeur de Sources", vous pouvez retourner sur votre 
Source en cliquant sur l'onglet "Unit1". 


Ce nom "Unitl" n'est pas explicite. Nous allons le renommer en gardant une 
partie des informations importantes. 


Cliquez dans le menu LAZARUS sur "Fichier" puis "Enregistrer". Créez votre 


" 


répertoire de projet, puis sauvegardez votre unité en commençant par "u_". 


Cela indique comme avant que l'on sauvegarde une unité. Les fichiers sont 
ainsi regroupés au même endroit. Ensuite on met le thème de l'unité : "hello". 
Cela donne "u_hello". Sauvegardez. 


Si vous avez mis des majuscules dans le nom d'unité, LAZARUS peut vous 
demander de renommer ce nom d'unité en minuscule. N'allez que pas contre 


ces recommandations. 


Votre nom d'unité est donc "u_hello”. Elle peut être rajoutée dans une clause 
"uses" d'une autre unité du projet. 


° O  H Zaprésentation 


Nous allons rajouter un bouton à notre formulaire. Pour aller sur le formulaire 
de l'unité "u_hello" appuyez sur "F12", quand vous êtes sur l'unité dans 
l'Editeur de Source". Cliquez de nouveau sur "F12" permet de revenir sur 


l''Éditeur de Source". Revenez sur la fiche. 


Allez sur la palette des Composants. Sélectionnez dans le premier onglet 
"Standard" le bouton "TButton". Cliquez sur l'icône "TButton”. Il s'enfonce. 


Cliquez sur le formulaire pour placer votre "TButton"”. Vous voyez à 
l'exécution la même fenêtre avec son "TButton" sans les points noirs. Ces 
points noirs servent à se repérer à la conception. 


Si vous appuyez sur "Échap", d’inspecteur d’objets descend sur le contrôle 
parent. Cette touche permet donc de remonter sur votre formulaire. 


Cliquez sur le bouton de votre formulaire puis sur "F11". Vous sélectionnez 
l""Inspecteur d'Objets", qui permet de modifier votre "TButton”. 


Vous êtes sur l'onglet "Propriétés" de l'"Inspecteur d'Objets". Cet onglet classe 
les propriétés par ordre alphabétique. 


Vous pouvez changer la propriété "Name" de votre "TButton”, afin de 
renommer votre "TButton" en "BCliquez". Vous voyez alors le texte du 
"TButton" changer. C'est une automatisation de ce Composant, qui change sa 
propriété "Caption" quand on change pour la première fois son nom. 


Pour vous rendre compte, allez sur la propriété "Caption” et enlevez le "B". 
Le nom de votre Composant n'a pas changé. Pourtant la propriété "Caption" a 
bien changé le texte de votre "TButton”. 


° ©O M He Code Source 


Allez sur l'onglet "Événements" de l''Inspecteur d'Objets" par F11. Double 
cliquez sur l'événement "OnClick". Cela fait le même effet que d'appuyer sur 
les trois points : Vous créez un lien vers une procédure dans votre "Editeur de 
Source”. 


Tapez entre le "Begin" et le "End;" de cette nouvelle procédure deux espaces 
puis "show". Puis appuyez en même temps sur "Ctrl" suivi de "Espace". 


Si vous avez ajouté l'unité "Dialogs” vous voyez la procédure 
"ShowMessage”". Cette procédure simple possède un seul paramètre chaîne. 
Sélectionnez cette procédure avec les flèches et entrée. Vous pouvez aussi 
utiliser la souris. 


Vous avez maintenant à ajouter le paramètre permettant d'afficher du texte. 
Les paramètres des procédures sont intégrés grâce aux parenthèses. 


Ouvrez votre parenthèse. Les chaînes sont ajoutées en les entourant par un 


mur ! mon 


ShowMessage ("Hello World ); 
End; 


Nous allons afficher un message "Hello World” quand on clique sur le bouton 
"BCliquez". 


Appuyez simultanément sur "Ctrl" suivi de "F9". Cela compile votre 
exécutable, en vérifiant la syntaxe et en donnant des avertissements. 

Cliquez sur ou appuyez sur "F9" pour exécuter votre Logiciel fenêtre. 

Après avoir appuyé sur le bouton voici ci-après ce que cela donne : 


projectl 


oO Hello Worid ! 


OK 


Un exemple avec un événement 


+ © M La Source du formulaire 


Dans la source de votre formulaire, le type égal à "class (TForm)" décrit 
l'élément essentiel de l'EDI LAZARUS. II s'agit de la fenêtre affichée 
contenant le bouton. On ne voit pas dans cette déclaration l'endroit où on a 
placé le bouton. L'endroit où on a placé le bouton se modifie dans 
l""Inspecteur d'Objets”. 

L'"Inspecteur d'Objets" sauve les propriétés dans le fichier portant l'extension 
"Jfm". Vous pouvez voir ce fichier en affichant sur le formulaire modifiable 
un menu, grâce au bouton droit de la souris. Dans ce menu cliquez sur 
"Afficher le code Source". 


Copier 

Coller 

Supprimer la sélection 

Tout sélectionner 

Modifier la classe 

Afficher le Source (.Ifm) 
Enregistrer le formulaire en xml 


& Option : aligner sur la grille 
& Option : aligner sur les lignes guides 
Options 


"Afficher le Source" dans la conception du formulaire 


En scrutant le fichier "fm" vous voyez le bouton et ses coordonnées 
affichées. 


Le type égal à "class (TForm)" permet d'afficher la fenêtre et son bouton en 
lisant ce fichier ".Ifm. 


Les modifications apportées au fichier permettent entre autres d'intervertir des 
Composants. Pour faire cela vous avez relié le paquet du Composant au projet 
en l'ajoutant comme condition au "Gestionnaire de projet". 


+ © Paquets Spécifiques 


Dans la version 0.9.30 de LAZARUS a été ajouté un paquet, une bibliothèque 
donc, permettant de faciliter le développement pour les débutants. 


Ce paquet installe des fonctionnalités LAZARUS permettant de s'habituer au 
nommage, tout en facilitant la création de Code au sein de LAZARUS. 


Allez dans "Paquets", puis "Configurer les paquets". Une fenêtre s'ouvre. 
Sur la liste de droite, sélectionnez le paquet "educationlaz”", pour l'"Installer”. 
"Reconstruisez LAZARUS". 


Si le paquet n'était pas compilé, il s'agit de le recompiler dans le menu 
"Paquets"” puis "Ouvrir le paquet chargé". Si un paquet ne recompile toujours 
pas, effacez le répertoire "lib" de la personnalisation de LAZARUS (cf 


Sauvegarder LAZARUS dans le chapitre sur LAZARUS). 


Après que LAZARUS ait redémarré, dans "Outils", puis "Options", vous 
pouvez changer les paramètres pour débutants dans "Éducation". 


Dans les options d'"Education", dans "Général", activez le mode "Débutant". 


Dans ces options toujours et dans la "Palette de Composants" "Montrez tout". 
Il est en effet possible d'y cacher les Composants que l'on ne souhaite pas 
utiliser. Mais cette option, activée pour les professeurs, est surtout réservée 
aux démonstrations. 


Vous pouvez afficher ou cacher d'autres outils, comme les boutons de 
référencement d'unités, de classes. 


Dans la version 1.8 de LAZARUS, a été installé le paquet 
onlinepackagemanager, qui permet d'installer facilement des paquets. 
L’installer ajoute dans les paquets le gestionnaire de paquets en ligne. 


«+ © indentation PASCAL 


Vous voyez dans l'exemple que le Code Source est joliment présenté. Cela 
n'est pas une futilité puisque vous avez eu envie de le regarder. Vous avez 
peut-être eu envie de prendre exemple sur ce qui avait été fait. Voici la recette 
à suivre pour faire de même et mieux encore. 


Un Code Source bien présenté ce sont des développeurs avec un 
comportement clair et précis. L'indentation c'est la présentation du Code 
Source pour qu'il devienne lisible. En effet vous créez du Code machine, alors 
que ce sont des hommes et femmes qui le scrutent, et le modifient 
correctement. Les erreurs sont toujours humaines. 


L'indentation c'est donc du Code Source lisible. L'indentation permet de 
présenter le Code Source afin de le comprendre comme clair, sans avoir à 
fouiller pour trouver ce que l'on cherche. 


L'indentation des éditeurs PASCAL est simple. En voici un résumé : 
* Chaque instruction ou nœud ( var, type, class, if, while, case, etc. ) est à 
la même position que la ligne précédente. 
*_ Chaque imbrication d'un nœud doit être décalée de deux espaces vers la 
droite. 
* Les instructions incluses entre les "Begin" et "End ;" sont décalées de 
deux espaces vers la droite. 


Cette présentation permet de revoir du Code Source plus facilement. Les 
développeurs qui regardent du Code Source avec cette présentation sont plus 
précis et plus sûrs d'eux. 


Pour aider à indenter deux combinaisons de touches sont très importantes 
dans les éditeurs PASCAL : 
* Ctrl + K + U permet de décaler votre sélection de lignes de deux 
espaces vers la gauche. 
* Ctrl + K + I permet de décaler votre sélection de lignes de deux 
espaces vers la droite. 


Vous pouvez aussi ajouter des règles de présentation du Code Source qui 
facilitent la maintenance. Nous vous disons pourquoi appliquer ces règles de 
présentation : 
® Des commentaires sont obligatoirement avant chaque Code Source de 
fonctions ou procédures. Ainsi les commentaires avant chaque fonction 
ou procédure sont vus dans l'éditeur FREE PASCAL lorsque vous 
mettez la souris sur la fonction ou procédure. 


® Des commentaires sont dans le Code Source si on y trouve un Bogue 
ou erreur. Si on corrige un Bogue dans le Code Source, il est possible 
que l'erreur revienne s'il n'y a pas de commentaires. 

® Des commentaires sont dans le Code Source dès que l'on réfléchit pour 
écrire une Source. Si le Code demande réflexion pour être fait, c'est que 
vous y réfléchirez à nouveau si vous n'y mettez pas de commentaires. 
Notre mémoire oublie ce que l'on a écrit. 

® Chaque fonction doit tenir sur la hauteur d'un écran. Une fonction qui 
ne tient pas sur la hauteur d'un écran est non structurée, illisible, 
difficile à maintenir, difficilement compilable si retravaillée. 


Pour créer des commentaires sélectionnez le texte à commenter, puis appuyez 
sur Shift+Ctrl+V. Shift+Ctrl+U permet de dé-commenter. 


Il existe d'autres méthodes de structuration, comme aligner des séries 
d'instructions mot à mot. Cela permet de retrouver facilement les différences 


si le Code Source se répète. 


Comme l'éditeur FREE PASCAL peut terminer les mots, il est possible 
d'affecter des noms longs de variables et procédures. 


Toute nouveauté de l'éditeur est à scruter. Cela facilite le travail. Vous pouvez 
définir votre présentation et la tester. 


Les exemples que nous vous montrons après sont indentés. 


° © M Paramétrer l'indentation 


Vous pouvez modifier les "Options" d''Indentation" dans "Outils", puis 
"Options", puis "Éditeur", puis "Général", puis "Indentation”. 


- © Structure du Code Source 


Nous allons décrire le Code Source précédemment créé. 


En général une unité faite en PASCAL se structure avec d'abord un en-tête, 
puis des déclarations publiques, puis le Code Source exécutable. Toute unité 
PASCAL se termine par "end.". 


+ © M La déclaration Unit 


La déclaration "Unit" est la première déclaration d'un fichier PASCAL. Elle 
est obligatoire et obligatoirement suivie du nom de fichier PASCAL, sans 
l'extension. On change cette déclaration en enregistrant l'unité. 


+ © M Les déclarations publiques 


Les déclarations publiques comprennent obligatoirement le mot clé 
"interface" indiquant le début des déclarations publiques. 


Vous pouvez ensuite y placer l'instruction "uses" permettant d'utiliser dans les 
déclarations publiques les unités déjà existantes. À tout moment vous pouvez 
ajouter une unité dans cette clause grâce au menu "Source". 


Vous pouvez ensuite placer toute déclaration constante, type, variable, 
fonction ou procédure. Toute déclaration incluse dans la compilation ajoute 
du Code à l'exécutable. 


Les variables allouent soit un pointeur soit un type simple. Les types simples 
sont faciles à utiliser. 

Un pointeur est une adresse pointant vers un endroit de la mémoire. Il permet 
de définir et de stocker des types complexes. 

Les constantes publiques peuvent être centralisées dans une ou plusieurs 
unités. 


+ © M Le Code Source exécuté 


Le Code Source commence par le mot clé "implementation". 
En plus des déclarations déjà définies, on place dans cette partie le Code 
Source exécuté grâce aux fonctions et procédures. 


Dans le Code Source exécuté on peut placer les mêmes déclarations que celles 
données précédemment. Seulement elles ne sont plus publiques donc pas 
utilisables ailleurs. 


La procédure "ShowMessage" vous a permis d'afficher une boîte avec un 
message et un bouton. 

LAZARUS est partagé. Vous pouvez donc scruter ses sources. Si vous 
regardez le Code Source de "ShowMessage" en cliquant plusieurs fois avec 
"Ctrl", vous voyez qu'elle est déclarée avec le mot clé "procedure". 


Une fonction s'appelle de la même façon mais renvoie une variable retour. En 
effet le rôle des fonctions et procédures est de modifier une partie de votre 
Logiciel. Elles transforment une entrée en sortie comme le ferait une équation 
mathématique. 


L'événement que vous avez créé est une procédure particulière qui a permis 
d'afficher votre message à l'écran. La sortie ici c'est l'affichage de "Hello 
World" dans une fenêtre de dialogue. 


Toute fonction ou procédure déclarée publiquement doit avoir une 
correspondance dans le Code Source exécuté. Le Compilateur vous le rappelle 


si vous oubliez. Le Code Source que vous avez ajouté était dans la partie 
"implementation". 


° © M Finde l'unité 


La fin de l'unité est définie par "end." 


.- © Les fichiers ressources 


À la fin d'un fichier PASCAL contenant votre formulaire, voici ce que l'on 


(SIFDEF FPC} 
{$i Resources.lrs} 
{$ENDIF} 


La combinaison Shift+Ctrl+D permet d'entourer toute source avec un 
IFDEEF à définir. 


Ces trois lignes signifient : Si la directive FPC ou Compilateur FREE 
PASCAL est activée, alors inclure le fichier "Resources.lrs". Le chapitre De 
PASCAL vers FREE PASCAL décrit les IFDEF en détail. 


LAZARUS utilise d'autres fichiers ressources que Turbo PASCAL ou 
DELPHI. On appelle les fichiers ressources LAZARUS les fichiers ".Irs". Ils 
nécessitent idéalement d'avoir des fichiers images en format image 
compressée XPM. Les fichiers ".Irs" peuvent contenir aussi le fichier ".Ifm" 
dans les vieilles unités de formulaires, pour les versions de LAZARUS 
inférieures à 0.9.29, 


Nous vous expliquons plus loin la création de votre premier Composant. Une 
partie de ce chapitre décrit la création et l'utilisation du fichier ".Irs". 


.« © Retravailler les sources 


LAZARUS aide à modifier les Sources de vos Logiciels. N'oubliez pas dans 
l''Éditeur de source", quand vous cliquez à droite sur un mot de vos sources, 
le sous-menu "Retravailler". Vous pouvez par exemple changer l'identificateur 
de tout nom de fonction ou variable. Cela permet d'avoir des sources plus 
lisibles. 


Sans Ie Fer © di TOUCRE Wche: 1 
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Tapez cette ag OM 
£äricha. Les K 


lace. Les abréviations disponibles sont visibles en faisant Ctrl + 1. 
Pa complétion permet désponil Le votre place. Crest indispensable pour tout 


programmeur cherchant à gagner du temps. 
Redhäaharedans le Code lié : 


procedure TForml.FormCloseQuery(Sender: TObject; var C 


begin 
Sho wi 


ShowModal : ! 9] 

pa t aMsg:string); 
ShowMessageFmt (const aMsg:string;Paran 
ShowMessagePos (const aMsg:st ring;X,Y:1 


Dtrhs VÉditeur : Aller directement de la déclaration d'une méthode à 
flchmhäfmenthaon. 
CoNén@t de Code : vous entrez procedure toto(s:string) dans 


type 


TFormi = class(TForm) 
private 

procedure toto(s:string); 
public 


Il vous écrit, dans la partie implémentation : 
procedure TForml1.toto(s:string); 
Begin 


end; 

Gtdbrnhéaplusieurs lignes à la fois 
Basser de 

Ctrl+Maj+u 


Rijinnoerchelftèwhiéener au pixel près un Composant 


et Ctrl+touche flèchée 

Fñrtejappel aux modèles de Code. 

RuteMits madèles dedSadenetsmdtteatud'éSauecdupéliadpdouoifant 
renfnipéeremulentsissant le modèle de Code if then else après 
Mous fêté Cérir-+un WoubtenSource et vous vous aller voir ailleurs 


danis-l'unité puis revenir rapidement : 
1à9e Tapez :CTRL SHIFT 1 (ou un chiffre de 1 a 9 au- 
dessus des lettres et non dans le pavé numérique) 
l'éditeur met un "1" dans la marge. 
° Pour revenir vous faites CTRL avec 1 
° Pour annuler la marque, soit vous vous placez sur la 
ligne et vous refaites CTRL SHIFT 1, soit vous vous 
placez ailleurs et vous refaites CTRL SHIFT 1, pour 
déplacer la marque. 
Striéplacer au mot suivant ou précédent. 
flèche droite ou gauche 
StrüéMager au mot suivant ou précédent tout en sélectionnant. 
+ droit ou gauche 
Raviehaatanême que d'utiliser l'ascenseur 
bas 


+ © Touches de raccourcis pour le 
projet 


Foücmdu menu 


EtchHflOuvrir un projet 
Mfajef|1Ajouter au projet 
Eécuter | Exécuter 
Copi@ le projet 
EtchiS | Enregistrer 
Réaliser le programme = arrête votre programme et revient en 
mode édition 

Etrba®4e fichier en cours 


- © Touches de raccourcis de 
visibilité 


Foûücmdu menu 


UüirEBenêtres de débogage | PilË d'appels 
Kffiche l'aide contextuelle 

Mbir | Inspecteur d'Objets 

Mtär | Basculer sur Formulaire/Unité 
Uuir-FUñités 

Mair-Hbèmulaires 

Vuir-Napibrateur de Code 

Voir Mapibrateur de classe 
Aidatè{ap-dlément à faire 

Afin menu contextuel 

Bithiet | Utiliser l'unité 

Bäseblé Form visuel / Source della forme 


- © Touches de raccourcis de 
débogage 


Les raccourcis de débogage sont généralement utilisés dans l'éditeur de 
Source. Ils permettent de scruter le Code Source. Il est possible de placer un 
point rouge sur une ligne de votre Source, dans la marge grisée à gauche de 
votre Source. C'est un point d'arrêt. Il va être appelé dès que l'on exécutera la 
ligne avec ce point d'arrêt. 


+ © M Exercice 


Placez un point d'arrêt à "ShowMessage" dans votre exemple. 
Exécutez et cliquez sur le bouton. En général le programme se fige, puis 
LAZARUS se place sur le "Point d'arrêt" que vous avez mis. 


+ © M Mes points d'arrêt sont inactifs 


Pour que ces points d'arrêt fonctionnent, votre projet doit se compiler d'une 
certaine manière. Votre exécutable devient ainsi dix fois plus important 
qu'habituellement. Si les points d'arrêt fonctionnent, votre exécutable est très 
lourd. 


Allez dans le menu "Projet", puis "Options du Projet”, puis "Options de 
compilation". 


Allez dans l'onglet "Débogage". Cochez en haut "Générer les informations de 
débogage" et "Afficher les numéros de lignes". Les infos de débogage et les 
numéros de ligne servent à ce que le débogueur se repère. 


+ © Alléger l'exécutable 


Ouvrez le menu "Projet", puis "Options du Projet”, puis "Options de 
compilation". 

Ouvrez l'onglet "Débogage". Décochez en haut "Générer les informations de 
débogage”. Ces infos et numéros de lignes supplémentaires alourdissent votre 
exécutable. 

Ouvrez l'onglet "Compilation et édition des liens”. En haut dans 
"Optimisations" choisissez le dernier niveau d'optimisation. 


- © Touches de raccourcis du 
débogueur 


Foücmdu menu 


EÆécuter | Jusqu'au curseur 

Efécuter | Ajouter un point d'arrêt 
Exécuter | Pas à pas approfondi 
Nkéaltér | Jusqu'à la prochaine lilene 
Ekécuter | Pas à pas 

AidE$ un point de suivi sous le|curseur 
Évdke7/Modifier 


- © Touches de 
l'éditeur 


raccourcis 


de 


Aoticire 


UaraKerB début d'un bloc 
CopkKleGloc sélectionné 
&tflek4kHche le bloc sélectionn 
UtakaKe+-K fin d'un bloc 

UtakaKeHa ligne en cours commel bloc 
Eürt-pKssbt un bloc en majuscule 
Eürt-pKss@x un bloc en minuscule 
CttiktelRe bloc sélectionné 

CirkkKEikc de procedure puis uñ fichier 
UtakaKe-lh mot comme bloc 
DépiKe K bloc sélectionné 

Étrit Kk46c sélectionné dans un/fichier 
SinpkKm® le bloc sélectionné 


BbibteCtibviént un commentaire 
BbibteCdd&Yient une source 
Ehifttrlæ Mlection 
EhittGtrpaDun IFDEF 


SftplEtekH& source 


BiséteCüri-UID (Voir le chapitie sur les Composants) 


- © Touches de raccourcis de 
l'environnement 


Foücmdu menu 


ÉGIHG | Copier 
Éditioû | Coller 
Éüitioû | Couper 


Le langage PASCAL 


CREATIVE COMMON BY NC-ND 


+ © Introduction 


Nous avons appris à utiliser un programme existant. Cela semblait facile. 
Nous ne connaissions pourtant pas l'utilité des instructions et de la syntaxe 
que nous avons testées. 

Nous allons dans ce chapitre apprendre la syntaxe et les instructions 
nécessaires à la création d'un programme fait en FREE PASCAL. 


Nous allons créer des programmes non graphiques. Pour exécuter et voir un 
programme textuel, utilisez, dans les "Accessoires", la "Ligne de commande" 
sous WINDOWS ou le "Terminal" sous LINUX. 


© instruction PASCAL 


Une instruction est une commande PASCAL exécutant une tâche. 

Dans l'exemple précédent l'appel à l'instruction "ShowMessage" se terminant 
par un ";" est une instruction. 

Une instruction PASCAL se termine souvent par un ";". Choisissez d'affecter 


AL 


un ";" quand vous écrivez la plupart des instructions. 


.- © La condition 


La condition consiste à faire un choix parmi plusieurs possibles, en orientant 
le programme vers 2 directions différentes. 


If a>b then 

ShowMessage (A est supérieur à B') 
Else 

ShowMessage ('A est inférieur à B' ); 


Si À est supérieur à B alors écrire ‘A est supérieur à B', sinon écrire ‘A est 
inférieur à B'. 

Le "Else" est facultatif. On peut ajouter des conditions grâce aux parenthèses, 
en utilisant le "not", le "or" ou le "and", c'est à dire l'inversion, le ou exclusif 
ou le et. 


If (not (a=0)) or (a>b) then 
Begin 
a:= b+a ; 
b:= a ; 
End ; 


Si pas de A à zéro ou À supérieur à B, alors À devient A + B, B devient ce A. 
On peut aussi écrire le si comme ceci : 


If (a<>0) or (a>b) then 
Begin 
a:= b+a; 
b:= a ; 
End ; 


A différent de 0 ou a>b fait la même chose que précédemment. 


Nous avons placé les deux instructions du si entre un "Begin" et un "End;" 
afin que "b:= à ;" soit inclus dans le if. 


Dans cette instruction si A n'est pas égal 0 on ne teste pas si À > B. En effet la 
condition ou est remplie par le premier ou exclusif. Il est donc important pour 
le ou de placer en tête les conditions à remplir les plus fréquentes. Par contre 
pour le et il faudra mettre les conditions les moins fréquentes. Le et est 
l'inverse du ou. 


© Les fonctions et procédures 


Comme tous les langages, PASCAL permet de découper un programme en 
plusieurs parties nommées souvent modules. Cette programmation modulaire 
se justifie pour différentes raisons: 


Un programme écrit d'un seul tenant devient difficile à 
comprendre dès qu'il dépasse une ou deux pages de texte. 
Aussi il devient difficilement modifiable. 

Une écriture modulaire permet de le scinder en plusieurs 
parties et de regrouper dans le programme principal les 
instructions des modules en décrivant les enchaînements. 
Chacune de ces parties peut d'ailleurs, si nécessaire, être 
décomposée en modules plus élémentaires. Ce processus 
de décomposition peut être répété autant de fois que 
nécessaire. Il est à noter que les méthodes de 
programmation structurée conduisent tout naturellement à 
ce découpage. 

La programmation modulaire permet d'éviter des 
séquences d'instructions répétitives. En particulier, nous 
verrons comment la notion d'argument permet de 
paramétrer certains modules. 

La programmation modulaire permet le partage d'outils 
communs qu'il suffit d'avoir écrits et mis au point une 
seule fois. 


La programmation modulaire a été suivie par la programmation par Objets, 
une programmation encore plus proche de l'humain. 


O 


Définition 


Les fonctions et procédures sont du Code Source exécuté avec les paramètres 
ou variables en entrée. Cela donne un résultat ou sortie. 


+ © Tester son programme 


Définir une fonction ou procédure permet de savoir comment tester cette 
fonction ou procédure, à partir des règles de gestion de votre programme. Les 
règles de gestion sont ce qui permet de réaliser des instructions élémentaires 
et personnalisées. Nous vous expliquons des règles de gestion Objet dans le 
chapitre sur la Persistance d'un Logiciel. 


Lorsqu'on écrit une fonction on définit ce que fait cette fonction. On sait donc 
les limites de sa fonction. Par exemple une fonction retournant un âge 
retourne en 2012 un nombre entier entre 0 et 150. Une fonction ajoutant des 
âges retourne un entier positif. Plus l'entier a une limite importante plus la 
somme peut être importante. On peut alors choisir le type "Cardinal", un 
entier plus grand que "Integer". 


Les jeux de tests consistent à vérifier que les fonctions et procédures 
retournent les bons résultats dans et sur les limites en entrée et en sortie de sa 
fonction ou procédure. 


Les jeux de tests sont très utiles dans l'industrie ou pour tester ses 
Composants. 


+ © FREE PASCAL 


Vous pouvez programmer uniquement avec le compilateur FREE PASCAL. 
Cela consiste à utiliser l'exécutable "fpc" ou "fpc.exe" et son "make". 


- © Les types simples définis 


Le langage PASCAL vous demande de définir ce que vous faites. Ainsi on 
définit ce qui est utilisé par les fonctions et procédures. Cela permet 
d'anticiper sur une future gestion des sources. 


Vous pouvez utiliser des types définis ci-dessous sans avoir à utiliser quelque 
unité que ce soit : 


Définjtéon 
Entier compris entre -127 et l'Shoftout les entiers sont non variables 
donc précis. IIS peuvent servir de clés. 
Entier compris entre O0 et 255  Bhyte 
Entier compris entre -32 768 et RA6éef 
Entier compris entre Ü et 65535 Word 
Entier [long compris entre — 2 T4 bA48m648 et 2 147 483 647 
Entier long compris entre U et Æ284#H64205 
Entier d'architecture 64 bits compniééntre -2763 et 2163-T 
Entier d'architecture 64 bits conlpfit@ftre O et 2164-T 
Réel compris entre -022337106#8h4ÿ7,5808 et 922 337 203 685 
477,5807. IT ne varie pas donc il est précis. 
Réel variable compris entre 2Bloat 10-39 et 1,7 e 1038 avec IT 
décimales 
Réel variable double précision doubs entre 5,0e10-324 et T,7e10308 
avec 15 décimales 
Réel variable compris entre 1,Gxtéhd&ST et TI, Ie 10-4932 
Un caractère alphanumérique de &léae taille que Byte 
Chaîne de caractères courte à ide Surmpble 
Chaîne de caractères à taille varisbimg 
Chaîne de caractères lourde à WilléStrrmble 
Valeur logique égale à TRUE oBdéMaSE 


+ © M Exemple 


ne procédure s'écrit par exemple 
procedure hello ( nom : String ); 
Begin 


ShowMessage (‘Bonjour Monsieur ou Madame "+ Uppercase ( nom ) 
+1}; 
End; 


Cette procédure utilise une variable paramètre de type "String" ou chaîne. Elle 
utilise une fonction de mise en majuscules qui permet d'afficher une fenêtre à 


l'utilisateur avec le message "Bonjour Monsieur ou Madame [NOM EN 
MAJUSCULES] !". 

Un bouton "OK" que l'on voit peu dans le Code Source permet de quitter cette 
fenêtre. Une fenêtre ShowMessage peut servir à tester son Logiciel en cas de 
défaillance du débogueur. 


La procédure porte le nom hello et possède un paramètre chaîne. 

Le Code Source modifiant la sortie de la procédure commence par le mot 
"Begin" et se termine par "End;". On place entre le "Begin" et le "End ;" ses 
instructions, ici "ShowMessage". 


La procédure hello appelle la procédure "ShowMessage", qui permet 
d'afficher en premier plan une fenêtre avec la chaîne "Bonjour" suivie du 
paramètre "nom", puis un point d'exclamation. 


Pour appeler la procédure nommée "hello" appelez ce nom suivi d'un 
paramètre chaîne entre parenthèses. Vous remarquez que cela se fait de la 
même manière que l'appel à "ShowMessage”. 


"ShowMessage" est aussi une procédure que vous pouvez scruter en 
maintenant enfoncée la touche "Ctrl" et en cliquant dessus. 


+ © Les variables globales 


| En dessous de la déclaration de votre fenêtre vous voyez la variable 
portant le type de votre fenêtre. Grâce au bouton complètement à gauche en 
bas de la palette LAZARUS , vous accédez aux unités du projet, puis à l'unité 
principale de votre projet portant le nom de votre projet. 


Allez sur la Source de la fenêtre grâce aux boutons décrits ci-avant. 

Notre exemple réalisait l'affichage d'un message dans une fenêtre. 

Pour afficher le message nous avons utilisé une procédure. Par contre nous 
avons écrit très peu de Code pour créer la fenêtre. Comme on le voit on 
déclare un type fenêtre "TForm". Puis on le déclare en variable. 


Vous voyez ceci dans la Source du fichier projet "Ipr” : 


begin 
Application.Initialize; 
Application.CreateForm(TForml, Forml); 
Application.Run:; 

end. 


Vous voyez dans cette Source que la variable de votre fiche est renseignée par 
la procédure "Application.CreateForm", avec le type de votre fiche. 


"Application.CreateForm" crée un type descendant du type "TForm" vers la 
variable correspondant au type de la fenêtre. La procédure va chercher la 
variable et le type grâce au projet, dans l'unité contenant la fenêtre. 

Comme vous le remarquez la déclaration de la variable fenêtre avec "var" 
n'est inclue dans rien. C'est donc une variable globale. Cette variable a pu être 


utilisée dans la création de l'Application en demandant l'unité de gestion des 
fenêtres nommée "Forms". 


° ©  Æ But d'une variable globale 


Une variable globale est une variable pouvant être réutilisée dans tout un 
programme. 


+ © MH Inconvénients d'une variable globale 


Une variable globale sera allouée pendant toute l'exécution du programme. 


Une variable globale ancêtre de "TForm" ne prend que peu d'espace au départ. 
Ce n'est qu'un simple pointeur, autrement dit une adresse, ne contenant aucun 
lien viable vers votre formulaire. Si vous essayez d'accéder à votre formulaire 
avant sa création se produit alors une erreur, car la variable du formulaire est 
vide. 


Seulement dans l'exemple l'ensemble visible de la fenêtre cette variable 
globale est créée à la création de l'Application avec CreateForm. Cette 
variable peut être détruite lorsqu'on ne l'utilise plus. Ne pas détruire une 
variable globale permet de la réutiliser dans tout le programme. 


Si on ne détruit pas cette variable globale à sa fermeture la variable globale 
prend autant d'espace que lorsqu'elle était visible. Les formulaires ancêtres de 
"TForm" contiennent beaucoup d'Objets et de Composants. Ces Objets ou 
Composants ne sont pas détruits par défaut, exceptés s'ils possèdent un parent 
et qu'on le détruit. Seulement si le parent n'est pas détruit la fenêtre n'est pas 
détruite. 


Détruisez la variable globale fenêtre si vous ne la réutilisez pas. 
Si votre Logiciel possède beaucoup de formulaires ou fenêtres vous pouvez 


Procedure TMaVariableGlobaleFormulaire.FormClose (Sender: 
TObject; var CloseAction: TCloseAction); 
begin 
CloseAction := caFree; 
MaVariableGlobaleFormulaire := nil ; 
end; 


Il est préférable de libérer un formulaire car les formulaires prennent 
beaucoup de place en mémoire. 

Mettre la variable de formulaire à "nil" peut parfois être nécessaire quand on 
automatise la gestion des formulaires. 


Dans le chapitre sur la création de Composants nous vous donnons la 


possibilité de ne pas faire de copié-collé à chaque création de fenêtre. 


+ © M Exercice 


Créez une Application avec deux formulaires. Le premier formulaire qui est 
toujours le formulaire principal permet d'afficher le second. Le second 
formulaire se détruit à la fermeture. 


- © Les variables locales 


Dans notre précédent exemple, la variable fenêtre était globale parce qu'elle 
était indépendante. On ne la voyait imbriquée dans rien. 


Or il est tout à fait possible d'effectuer au sein d'une procédure des 
déclarations de types, de variables, d'étiquettes, de procédures. Dans ces 
conditions, les nouvelles entités variables, types, étiquettes, procédures ainsi 
déclarées ne sont connues qu'à l'intérieur de la procédure dans laquelle elles 
ont été déclarées. On dit qu'elles sont locales à la procédure, ou encore que 
leur portée est limitée à la procédure. 


Dans ce premier exemple nous laissons le Code Source créé par LAZARUS 
lors de la création d'un "Nouveau" "Programme". Il est préférable de faire 


s . 


program exemple_procedure_3 ; 


{$mode DELPHI} 
uses 
Classes 
{ you can add units after this }; 


var cl, c2 : char ; 
procedure tricar ; 
var c : char ; 
begin 
if c1>c2 then 
begin 
c:=cl; 
cl:=c2; 
c2:=c; 
end; 
end ; 
begin 
write (‘donnez 2 caractères : ") ; 
readin (cl, c2) ; 
tricar ; 
write (‘caractères triés : ') ; 
writeln (c1,c2); 
end. 


Le rôle de la procédure "tricar" est simplement de ranger par ordre 
alphabétique les caractères contenus dans les deux variables globales "cl" et 


"c2" en procédant, si nécessaire, à un échange de leurs valeurs. Pour faire cela 
elle utilise la variable "c" comme variable intermédiaire. 


Or vous constatez que "c" a été déclarée au sein de la procédure "tricar”. Cette 
fois, c n'est connue qu'au sein de tricar. On dit que sa portée est limitée à la 
procédure "tricar" ou encore que "c" est "locale" à tricar. Elle n'est mise en 
mémoire que lors de l'utilisation de "tricar”. 


Que se passerait-il si l'on cherchait à utiliser "ce" en dehors de "tricar", par 

exemple, en ajoutant une simple instruction telle que: 
write (c); 

Après l'appel de "tricar” dans le programme principal. Le Compilateur 
signalerait simplement que l'identificateur "c" 


c" n'est pas connu à ce niveau. 


Si, en revanche, nous déclarions, en plus de la déclaration faite dans "tricar”, 


une variable "c" dans le PrORTAne principal, celle-ci serait indépendante de 
la variable "c" connue dans "tricar”. Voyez cet exemple qui reprend le 
PR er avons ajouté la déclaration: 


var cl, c2,c: char; 


c :="'A; 
writeln ('et dans c:',c); 


"ec " 


Elles permettent d'affecter une valeur à la variable globale "c" avant l'appel de 

"tricar"” et de l'afficher après cet appel, afin de montrer qu'elle n'a 
effectivement pas été modifiée. N'oubliez pas d'indenter et de sauvegarder 
votre Code Source. 


- © La notion de procédure 


Vous avez été amené à utiliser une procédure "ShowMessage” et une fonction 
"Uppercase”. 


Vous voyez que la fonction "Uppercase" peut être imbriquée dans une 


é ible d'écrire : 
UpperCase ( Showmessage (nom)):; 


Si vous écrivez cette instruction 1l y aura une erreur de compilation à 
"ShowMessage”". On vous indiquera que c'est une procédure ne retournant pas 
de résultat. On demande à UpperCase un type chaîne en paramètre. Comme 
"ShowMessage" ne retourne rien cela crée une erreur. 


re bien à 
ShowMessage ( UpperCase ( nom )); 


La fonction "Uppercase" renvoie une chaîne à "ShowMessage". L'aide à la 
création de Sources vous le montre. Elle est disponible dans le Code Source 
avec Ctrl + Espace, avec ou sans Shift. 


Une fonction possède généralement un ou plusieurs arguments et elle fournit 
un résultat. Quant à l'aspect modulaire, si on mentionne le nom d'une fonction 
dans un programme, on entraîne l'appel de tout un ensemble d'instructions, 
regroupées dans le Code Source de la fonction. Ces instructions réalisent le 
calcul pour donner la valeur à renvoyer. 


La procédure, quant à elle, n'est rien d'autre qu'une généralisation de la notion 
de fonction. Elle peut elle aussi posséder des arguments. En revanche, elle 
peut en retour fournir un ou plusieurs résultats, ou même aucun. Mais ces 
résultats s'ils existent ne constituent pas nécessairement la seule utilité de la 
procédure. Par exemple cette dernière peut imprimer un message, et ne 
renvoie alors pas ce résultat retour. 


On peut dire de la procédure qu'elle réalise une action, terme plus général que 
calcul. Notez que nous avons déjà été amené à utiliser des procédures 
prédéfinies comme "ShowMessage”", ou "writeln" pour les manipulations de 
chaînes dans la ligne de commande. 


En ce qui concerne la notion d'argument, nous verrons que celle-ci est plus 
générale qu'en mathématique. En particulier, elle permet de paramétrer le 
calcul comme on le souhaite. 


Nous allons commenter une succession d'exemples introduisant 
progressivement les notions fondamentales (variables globales, variables 
locales, arguments muets et effectifs, arguments transmis par valeur, 
arguments transmis par adresse). Nous parlerons des procédures en premier. 
Les fonctions sont ensuite décrites comme des cas particuliers. 


+ © M Les arguments 


Lorsque nous avons évoqué la possibilité de paramétrer une procédure, nous 
avons précisé qu'il existait deux façons de le faire en PASCAL. Les variables 
globales possédant leur type restent en mémoire. Nous allons maintenant 
comprendre la notion d'argument. 


Voici un nouvel exemple. On crée dans "Fichier" un "Nouveau" "Programme" 
en ligne de commande. Autrement dit c'est un programme qui n'utilise pas 
d'interface graphique. Les programmes sans interface graphique consomment 
RP ï ; utili ù ‘affcl 
program exemple_procedure_sS ; 
type note = (nut, nre, nmi, nfa, nsol, nla, nsi) ; 
var nl : note ; 
1 : integer ; 
procedure imprime_note(n : note) ; 
begin 
case n of 
aut : write (do) ; 
nre : write ('re') ; 
nmi : Write (‘mi’); 
nfa : write ('fa') ; 
nsol : write (‘sol ") ; 
nla : write (la); 
nsi : write (‘si’) 
end ; 
end ; 
begin 
writeln (‘voici les notes de la gamme”) ; 
for n1 := nut to nsi do 
imprime_note (n1) ; 
writeln ; 
write (‘donnez un numero : ') ; 
readin (à) ; 
write (‘la , i, eme note est") ; 
imprime_note (note(i)) ; 


writeln; 
end. 


Cette procédure affiche en chaîne la valeur de type note qu'on lui transmet 
dans une interface textuelle. 


Avant de l'examiner en détail, portons d'abord notre attention sur la définition 


] I éd « « I « liè À : 


procedure imprime_note (n : note) ; 


Cette fois, celle-ci comporte, en plus du nom de procédure “imprime_note”, 
une indication signifiant que cette procédure possède un argument nommé 
"n", de type note. Ce type est défini dans le programme principal. 

L'argument "n" signifie que lorsque cette procédure est appelée, on lui 
transmet une valeur de type note. Les instructions demandées par la procédure 
sont l'utilisation de l'argument, sachant que c'est l'identificateur "n" qui 
désigne la dite valeur. 

Notez bien que "n"” n'a aucune signification en dehors de la procédure, ni 
aucun rapport avec une éventuelle variable globale de même nom. On peut 
dire que "n" se comporte un peu comme une variable locale à la procédure, 
avec cette différence importante que sa valeur provient de l'extérieur. 


BAL 


n" est un argument muet. Autrement dit ce nom en soi n'a aucune 
importance. La même procédure pourrait être définie en remplaçant "n" par 
n'importe quel autre identificateur. Ainsi on passe n'importe quel argument de 
même type sans avoir à attribuer le même nom lorsqu'on appelle la procédure. 


Si le type est mauvais ou inexact il se produit une erreur de compilation. 


Il s'agit là du même principe que lorsque nous définissons une fonction en 


_mathématiques: Nous pouvons indifféremment définir f par : 
K(ejtuax2vababtecmuette 


SRE Pa ss te 
feÿtunezvaibablecmuette 


Pour utiliser la procédure "imprime_note" nous faisons suivre son nom d'une 
expression de type note entre parenthèses. Par exemple: 
imprime_note (n1) ; 

Cette instruction appelle [a procédure "imprime_note”, en lui transmettant la 
valeur de "nl". 


Po 


imprime_note (fa) ; 


Cette instruction appelle Ia même procédure en [ui transmettant la valeur 
constante "fa”. 


Nous utilisons donc le même calcul avec deux variables différentes. 

"nl" ou "fa" sont les arguments effectifs de l'appel de la procédure. Ces 
arguments ne sont plus muets comme dans la définition de la procédure 
puisqu'ils ne représentent plus quelque chose d'indéfini. Ils ont au contraire 
une valeur bien précise. 


.- © Le mot clé dans les 


paramètres 


var 


On pourrait écrire la fonction "get_note_ chaîne" comme ceci : 


procedure set_chaîne_note( n : note; var Result : String): 


Ajoutez le même Code de "get_note_chaîne" ensuite. 
Le Code Source ainsi créé fonctionne de la même manière mais il est plus 
rapide à l'exécution. 


La seule différence est que l'on déclare une variable de "imprime_note" cette 
fois-ci. 
Voici le Code Source : 


procedure imprime_note ( n : note) ; 
var chaîne : String; 
begin 
set_chaîne_note(n, chaîne) 
writeln ( chaîne ); 
end; 


On a donc ajouté deux lignes pour le même résultat. Le mot clé var nécessite 
donc d'avoir une variable pré-existante. Préférez l'utilisation de fonctions par 
défaut. 
Le mot clé "var" placé juste avant la déclaration du paramètre va cette fois-ci 
indiquer trois choses : 
® La variable passée en paramètre est modifiable. 
® La variable passée en paramètre n'est pas recopiée (cf Programmation 
procédurale avancée). 
® Une déclaration de la variable en paramètre doit être créée à l'extérieur 
de la procédure. 


+ © M Exemple 


Voici comme exemple un programme textuel montrant l'utilisation d'une 
fonction calculant la somme des valeurs d'un tableau. 


program Exemple_procedure ; 

const n_max = 10 ; 

type tligne = array [1..n_max] of integer ; 
var à, b : tligne ; 


1 : integer ; 
sa, Sb : integer ; 
function somme ( t : tligne ) : integer ; 
var i : integer ; 
begin 
Result := 0 ; 
for i:=low(t)to high (t) do 
Result : = Result + t [1 |; 


end ; 
begin 
for i :=low (a )to high (a) do 
begin 
ali] := 1; 
bi] := sqr(i) ; 
end ; 


sa := somme ( a ); 

Sb := somme ( b ); 

writeln ("somme des, n_max, ' premiers entiers : ', sa) ; 

writeln ( somme des ', n_max, ‘ carres des premiers entiers : , 
Sb) ; 
end. 


Somme des 10 premiers entiers : 55 

Somme des 10 carrés des premiers entiers : 385 

Vous constatez tout d'abord que l'en-tête de procédure est devenu un en-tête 
de fonction: 


function somme ( t: tligne ): integer; 


Le terme "procedure" a été remplacé par celui de "function". En ce qui 
concerne les arguments, vous remarquez que son nom n'est plus dans la liste. 
En revanche, le mot "integer" a été ajouté à la suite. 


Cet en-tête précise, en définitive, le nom de la fonction avec les arguments 
d'entrée, qui correspondent aux valeurs qui lui seront transmises en argument. 
Enfin le type du résultat de la fonction est obligatoire lorsqu'on déclare une 
fonction. Ici le type du résultat est "integer". C'est un unique résultat que la 
fonction peut fournir. 


La fonction est alors réutilisée dans des calculs, des procédures ou d'autres 
fonctions. Elle peut être passée en paramètre. Elle peut en d'autres termes être 
manipulée plus facilement. 


En ce qui concerne la description de la fonction, vous constatez la présence 
d'une variable nommée "Result". Cette variable est la variable locale de toutes 


les fonctions définie par le type de résultat de la fonction. Dans une procédure, 
il s'agirait d'un argument nommé Result précédé de var. Elle sert au calcul de 
la somme désirée. 


Il est recommandé de ne jamais déclarer de variable "Result" afin ne pas 

induire en erreur. Le Code Source doit être clair et documenté. 
ce Code est un Code Source de calcul : 

Result : = Result +t [1 ]; 


Ici on ajoute au résultat de la fonction une ligne pour l'attribuer toujours au 
résultat de la fonction. Le calcul à droite est d'abord réalisé. Une fois que ce 
calcul est terminé il est affecté dans la partie gauche de l'instruction de calcul. 


Les opérations de calcul et les accès directs aux tableaux ne sont pas 
optimisés. C'est à dire qu'il sont lents et que le programmeur peut les 
améliorer. Cela signifie que l'ordinateur met plus de temps à les exécuter. 
Nous verrons plus loin comment optimiser les tableaux et opérations de 


calcul. 


° © M Le nom de la fonction 


Par convention, le nom de la fonction sert à définir la valeur du résultat de la 
fonction. Ou alors le nom sert à définir le travail effectué. Les noms longs de 
fonctions n'ajoutent aucunement plus de mémoire à l'exécutable. En effet les 
noms de variables et de fonctions sont remplacés par des adresses dans 
l'exécutable. 


L'identificateur somme est utilisé à la fois comme identificateur de fonction et 
comme identificateur de variable. Toutefois, dans ce dernier cas, on ne le voit 
qu'à gauche d'une instruction d'affectation. En aucun cas on ne le voit dans 
une expression. En particulier, nous n'aurions pas pu utiliser directement le 


" " À 


nom de fonction "somm od croné dans la fonction : 
somme : = somme +t{[i]; 


Dans chaque fonction affectez la variable locale "Result". Ce résultat est la 
sortie générique de votre fonction, pouvant être utilisée dans un calcul. 


Calculs et types complexes 
CREATIVE COMMON BY NC-ND 


+ © Les comparaisons 


Les comparaisons servent en général aux instructions d'aiguillage. 


= comme ceci : 


> 
Il 
(wo) 


A et B doivent être de types identiques. 
Une comparaison PASCAL renvoie soit true soit false. 


+ © MH Les opérateurs booléens 


Opérateur booléen Définition 
FRenvoie true si la partie gauche du droite esta true | 
FRenvoie true si la partie gauchexou droite est à true et si elles sont | 
différentes | 
Renvoie true si la partie gaucheaïfdiroite sont à tue | 

nverse la valeur du booléen Of 


- nd Das SM noue : Te 
A=BorC 
Le langage PASCAL possède des opérateurs numériques et des opérateurs 
logiques. Ces opérateurs permettent de comparer au moins tous les types 
simples. 


+ © MLes opérateurs numériques de 
comparaison 


Compañhé érique 
Kenvoie true si la parte gauche ést égale à Ia partie de droite. 
Kenvoie true si la partie gauche &t différente à la partie de droite. 
Renvoie true s1 la partie gauche êst supérieure numériquement à la 
parte de droite. 
Renvoie true si la partie gauche (St inférieure numériquement à Ia 
parte de droite. 
Renvoie true si la partie ghuche est supérieure ou égale 
numériquement à la partie de drdite. 
Renvoie true si la partie che est inférieure ou égale 
numériquement à la partie de drdite. 


- © L'instruction "if" 


Elle peut prendre une de ces deux formes : 
If expression_booléenne 
then 
instruction; 
If expression_booléenne then instruction_1 
else instruction_2; 


mon 


L'instruction “if” se termine par un ";". Il n'y a pas de ":" avant le "else" de 
l'instruction if. 


L'expression booléenne peut être une comparaison, une fonction booléenne. 
Elle peut contenir une fonction comparée, etc. 


+ © Affectation 


A:=3; // A prend la valeur 3 
B:=A; // B prend la valeur de A, ici 3 


+ © M Exercice 


Écrire un programme permutant deux variables chaînes a et b. Le tester grâce 
à l'instruction "writeln” ou "ShowMessage”. 


+ © Les opérateurs numériques 


_Une instruction d'addition de chaîne ou de nombre est écrite ainsi : 
var A,B,C : longint; 
begin 
C := A +B; 
end; 


Cette instruction de calcul additionne A à B pour l'affecter à € en utilisant 
l'opérateur d'addition "+". 
Ce genre d'instruction est utilisé pour ajouter des chaînes ou des nombres. 


var A,B,C : string; 
begin 

A:='Voici '; 
B:='une chaîne’; 

C := A +B; 

end; 


NN 


L'opérateur "+" sert ici à concaténer deux chaînes. € contient "Voici une 
chaîne" après le calcul. 


Si on utilise des ici é de calcul : 
de calcul 
Addition 


Soustrait le nombre de droite à|celui de gauche. On peut mettre 
cette opérateur devant une väriable numérique relative pour 
l'nverser. 
Multiplication 
Division de la partie gauche par [a partie droite retournant un réel. 
Bienvoie le quotient de Ia divisioh entière. 

RenVoie le reste de Ia division entière. 


Les opérateurs de multiplications et de divisions sont prioritaires sur les 
(diti | re 
C:=A+B*5; 


Cette instruction de calcul multiplie B par 5 pour l'additionner à A. 
Les parenthèses servent à rendre prioritaire un calcul sur un autre. 


C:=(A+B})*5; 
Cette opération est différente. Ici on additionne À à B pour ensuite le 
multiplier par 5. Le résultat sera donc supérieur ou égal au résultat calculé 


précédemment. 


Voici ci-après une opération utilisant l'opérateur "mod". L'opérateur "mod" ou 
Je reste de la division entière. 
if (i mod 2 = 1 )then 


Ce test permet de savoir si i est impair. 


+ © M Exemple 


Agrandir de 10 Pixels un bouton quand on clique dessus. 
Doubler un autre bouton quand on clique dessus. 


+ © Le type “Record” 


Parmi les types structurés dont dispose PASCAL, nous avons déjà étudié le 
type tableau. Celui-ci nous permettait de réunir, au sein d'une même structure, 
des éléments de même type ayant un certain rapport entre eux. 
Cela nous autorisait, au bout du compte, soit à manipuler globalement 
l'ensemble du tableau dans des affectations, soit à appliquer un même 
traitement à chacun de ses éléments grâce à la notion d'indice. 


Mais, on peut également souhaiter regrouper au sein d'une même structure des 
informations n'ayant pas nécessairement toutes le même type. Par exemple, on 
regroupe les différentes informations relatives à un employé d'une entreprise 
comme le nom, prénom, sexe, nombre d'enfants, etc. 


En PASCAL, le type "Record" va nous permettre d'y parvenir. Ses différents 
éléments, nommés alors champs, peuvent être de type quelconque. Par 
exemple, un enregistrement correspondant à un employé comporte les 
informations suivantes: 

® nom, de type string[30] 

® prénom, de type string[20]] 

® nombre d'enfants, de type 0..50 

® sexe, de type boolean 


Comme les tableaux, les enregistrements peuvent être manipulés soit 
globalement, soit élément par élément. En revanche, nous ne retrouvons pas la 
possibilité qu'offrait le tableau de répéter un même traitement sur les différents 
champs. Mais vous pouvez créer des tableaux de "Record". 


Comme nous le verrons dans le prochain chapitre, le type "Record" est 
fréquemment associé aux fichiers. Néanmoins, ça n'est pas une règle générale: 
il existe des variables de type "Record" n'ayant pas de rapport avec des 
fichiers. Il existe aussi des fichiers ne faisant pas appel à un type "Record". 
C'est pour cette raison que nous vous proposons d'étudier ici la notion 
d'enregistrement indépendamment de la notion de fichier. 


+ © M Exemples 


type tpersonne = record 


nom : string [30] ; 


prénom : string [20] ; 

nbenfants : 0..50; 

masculin : boolean ; 
end ; 


Remarque importante : Dans un but d'optimisation les champs d'un "record" 
doivent être placés du plus gros au plus petit. Ainsi le "record" prend moins de 
place. On peut alors compacter l'enregistrement grâce à packed pour les 
_octets, voire bitpacked pour les booléens : 
type tpersonne = bitpacked record 
nom : string [30] ; 
prénom : string [20] ; 
nbenfants : 0..50; 
masculin : boolean ; 
end ; 
var employe, courant : tpersonne 


Cette déclaration correspond à l'exemple évoqué en introduction. Elle définit 
un type nommé "tpersonne" comme étant formé de 4 champs nommés nom, 
prénom, masculin et nb_enfants et ayant le type spécifié. Ensuite sont 
déclarées deux variables nommées “"employe" et "courant" comme étant du 
type "tpersonne". 


Ces variables peuvent être manipulées champ par champ, de la même manière 
que n'importe quelle information ayant le type du champ correspondant. 

Ainsi un champ d'une variable de type "Record" est désigné par le nom de la 
variable, suivi d'un point et du nom du champ concerné. 


Par exemple: 
üésgheyénohäimp nom de l'enregistrement "employe". Il s'agit donc 
d'une information de type string[30]. 


üésipaatimakamhm'masculin de l'enregistrement "courant". Il s'agit donc 
d'une information de type booléen. 


Voici quelques exemples d'instructions faisant référence à certains champs de 
> " " et " t': 


readin (employe.nom); 
employe.nbenfants := 3 ; 
if courant.masculin then … 


Par ailleurs, les variables employe et courant peuvent être manipulées 
ob Lis 


courant := employe; 


Cette instruction recopie toutes les valeurs des différents champs de 
"employe" dans les champs correspondants de "courant". Elle remplace 
avantageusement les 4 affectations: 
courant.nom := employe.nom ; 
courant.prenom := employe.prenom ; 
courant.masculin := employe.masculin ; 
courant.nbenfants := employe.nbenfants ; 
Comme pour les tableaux ces affectations globales ne sont possibles que pour 
des enregistrements déclarés explicitement du même type. 


+ © Les enregistrements avancés 


Pour utiliser l'enregistrement avancé, il faut l'indiquer au compilateur. 


Seuls sont donc autorisés : 
* les constructeurs ; 
* les visibilités strict private, private et public ; 
* les méthodes statiques et les méthodes statiques dites de classe ; 
* les propriétés. 


Avec l'enregistrement avancé, vous apprenez ce qu'est un objet, ure classe. 
Créez un nouveau programme Pascal. 
V . + lé I . ili ] clé" l": 


{$mode objfpc} 
{$modeswitch advancedrecords} 


uses 
Classes, 
SysUtils 
{ you can add units after this }; 


type 
{ TPerson } 


type TPerson = record 
strict private 
FFemale: Boolean:; 
FName, FSurname : String; 
public 
constructor Create ( AObject : TObject ); 
function IsValidPerson: Boolean; 
function IsValidName: Boolean; 
function IsValidSurN ame: Boolean; 
property Female : Boolean read FFemale write FFemale; 
property Name : String read FName write FName; 
property Surname : String read FSurname write FSurname; 
end ; 


On pourrait aussi utiliser le mode Delphi pour ne pas avoir à utiliser 
modeswitch. 


Le constructeur permet d'initialiser des variables de l'enregistrement. 


Les propriétés permettent de vérifier les variables, si vous utilisez des 
méthodes dans read et write. 


La partie implementation est créée automatiquement, mais vide, par la 
combinaison de touches Ctrl+Shift+C. 


Voici | e iml nd P L 
{ TPerson } 


constructor TPerson.Create ( AObject : TObject ); 
begin 

FFemale:=False; 
end; 


function TPerson.IsValidPerson: Boolean:; 
begin 

Result := IsValidSurName and IsValidName; 
end; 


function TPerson.IsValidName: Boolean; 
begin 

Result := FName > "; 
end; 


function TPerson.IsValidSurName: Boolean; 
begin 

Result := FSurname > "; 
end; 


var fPerson : TPerson; 
FSaisie : String; 
begin 
with fPerson do 
Begin 
WriteLn('Entre le prénom d'une personne.'); 
readIn(FSaisie); 
Name := FSaisie; 
WriteLn('Entre le nom d'une personne); 
readIn(FSaisie); 
Surname:=FSaisie; 


if IsValidPerson Then 
WriteLn(La personne * + Name + 
correctement remplie.) 
Else 
if IsValidName Then 
WriteLn('La personne ‘ + fPerson.Name + ‘ possède un nom 
valide.") 
Else 
if IsValidSurName Then 
WriteLn('La personne " + fPerson.Name +" possède un prénom 
valide." 
Else 
WriteLn('La personne est à renseigner.'); 
end; 
end. 


+ Surname +' est 


Les méthodes reprennent le nom de l'enregistrement avec un point. 


On initialise l'enregistrement grâce au constructeur. On vérifie la cohésion de 
la personne grâce aux méthodes IsValid. 


L'exécution du programme se fait par un begin, fini par end;, sans utiliser 
aucun nom de procédure ou fonction. 


Le programme est terminé par end. 


L'intérêt des enregistrements avancés est la vérification mais aussi l'utilisation 
d'opérateurs afin d'ajouter ou de soustraire des enregistrements. 


oici la pa 
{ TPerson } 
type TPerson = record 
strict private 
FFemale: Boolean; 
FName, FSurname : String; 
public 
constructor Create ( AObject : TObject ); 
function IsValidPerson: Boolean; 
function IsValidName: Boolean; 
function IsValidSurName: Boolean; 
property Female : Boolean read FFemale write FFemale; 
property Name : String read FName write FName; 
property Surname : String read FSurname write FSurname; 
end ; 


{ TPerson } 


class operator TPerson.+(APersoni, APerson2 : TPerson): 
TPerson; 
begin 
Result.Name  := APersonl.Name +APersoni.Name; 
Result.Surname := APerson1.Surname+APerson1.Surname; 
end; 


a Da € QE 
{ TPerson } 
type TPerson = record 
strict private 
FFemale: Boolean; 
FName, FSurname : String; 
public 
constructor Create ( AObject : TObject ); 
function IsValidPerson: Boolean; 
function IsValidName: Boolean; 
function IsValidSurName: Boolean; 
property Female : Boolean read FFemale write FFemale; 
property Name : String read FName write FName; 
property Surname : String read FSurname write FSurname; 
end ; 
{ TPerson } 


class operator TPerson.+(APersoni, APerson2 : TPerson): 
TPerson; 
begin 
Result.Name  := APersonl.Name +APersoni.Name; 
Result.Surname := APerson]1.Surname+APerson1.Surname; 
end; 


var Aperson, Apersonl, Aperson2 : Tperson; 


begin 

Aperson:= Apersonl + APerson2; 
end; 
end. 


+ © M Les types énumérés 


Des types plus complexes ont aussi été créés. 
On définit en PASCAL des types énumérant des valeurs. 


v se déclérabs 3 ue: 
type MonEnumeration =  (meJeVeux,  meJeNeVeuxPas, 
meJeNeSaisPas); 


var VeuxTu : MonEnumeration; 
var Incertitude : set of MonEnumeration; 


La variable "VeuxTu" utilisant le type énuméré "MonEnumeration" sans le 


LAN 


mot clé "set of" ne contient qu'une seule valeur. 


La variable "Incertitude" utilisant le type énuméré "MonEnumeration" avec le 


AM 


mot clé "set of" peut contenir plusieurs valeurs. 


On commence chaque constante par l'abréviation du type énumération. Cela 
permet de retrouver facilement les valeurs du type énumération. 


Le type énumération sert à se passer des constantes difficiles à retrouver. Il 
permet aussi de bien affecter ses variables. En effet le Compilateur indique 


une erreur dans le cas d'une mauvaise affectation de type énuméré. 


Une variable énumérée est héritée d'un simple octet. 
Créer une variable énumérée permet de faire moins d'erreurs de comparaison. 


° © M H Compilation d'une énumération 


Le Compilateur vérifie si l'énumération est correctement utilisée. 
Une énumération est transformée en entiers allant de 0 à n. Une variable 
énumérée peut donc être traduite en valeur entière. 


° ©O M M Exemple 


Dans le tout premier exemple, affectez la propriété Align du bouton à alClient 
lorsque le formulaire est créé. 


+ ©  H Comparer une variable d'un type 
énuméré 


Les types énumérations peuvent être comparés. 


x 


Une variable énumérée à valeurs multiples est un tableau de valeurs 
énumérées. 


° ©O D Type énuméré à valeur unique 


"VeuxTu = meJjeVeux" sert à savoir si "VeuxTu" vaut "meJeVeux". Cette 
opération renvoie true si VeuxTu vaut "meJeVeux". 

"VeuxTu in [meJeVeux,meJeNeSaisPas]" sert à savoir si "VeuxTu” contient 
"mejeVeux" ou "meJeNeSaisPas". Cette opération est égale à "VeuxTu <> 
meJeNeVeuxPas ». 


° © M Type énuméré à valeurs multiples 


"meJjeveux in Incertitude" sert à savoir si "Incertitude" contient meJeVeux. 
Cette opération renvoie true ou false. 
"[mejeveux,meJeNeVeuxPas,meJeNeSaisPas] * Incertitude = [meJeveux]» 
sert à savoir si "Incertitude" ne possède que “"meJeVeux". Si on ajoute un 
élément dans le type MonEnumeration, il ne sera pas pris en compte. Cette 
opération renvoie true dans ce cas là, false dans tous les autres cas. 


° © M M Opérateurs de comparaisons et de 
calculs 


Offihiti 
de calcul 


envoie “true” si la valeur énumérée est comprise dans le tableau 


d'énumération. 
Union de deux types énumérés à[valeurs multiples. 


Complément de deux types énumérés à valeurs multiples. 


Intersection de deux types énumérés à valeurs multiples. 


. © Les variants 


Quelquefois nous ne sommes pas sûr du type que nous voulons utiliser. 
Lorsqu'on lit un fichier ou des données des informations lues sont à définir. Si 
celles-ci ne sont pas définies il est possible d'utiliser le type "variant". 


Les variants utilisent beaucoup de place en mémoire, car ils créent un pointeur 
en mémoire pour chaque type possible. Ils sont à choisir en dernier recours, 
par exemple lorsqu'on crée des Composants génériques lisant des types de 
données inconnues. 


Uses Variants; 
Var v_Donneelnconnue : variant; 
procedure p_QuelTypeSuisje ( const Avariant : Variant ); 
Begin 
If VarlsClear ( Avariant ) Then 
writeln ("Mon variant n'est pas affecté." ) 
Else If VarIsNumeric ( Avariant ) Then 
writeln ("Mon variant est un nombre.' ) 
Else if VarlsStr ( Avariant ) Then 
writeln ("Mon variant est une chaîne." ) 
Else if VarlsArray ( Avariant ) Then 
writeln ("Mon variant est un tableau de variants.' ) 
Else 
writeln ("Mon variant est d'un autre type. ); 
End; 
Begin 
p_QuelTypeSuisje (v_Donneelnconnue); 
v__Donneelnconnue := "; 
p_QuelTypeSuisje (v_Donneelnconnue); 
v__Donneelnconnue := 1; 
p_QuelTypeSuisje (v_Donneelnconnue); 
v__Donneelnconnue := False; 
p_QuelTypeSuisje (v_Donneelnconnue); 
v_Donneelnconnue := VarArrayCreate ( [0,2], var Variant ); 
p_QuelTypeSuisje (v_Donneelnconnue); 
v_Donneelnconnue|0] := 'test' ; 
p_QuelTypeSuisje (v_Donneelnconnue[0]); 
End. 


VarArrayCreate fonctionne comme ceci : 
® Le premier chiffre du tableau d'entiers est la dimension moins 1. 
® Le deuxième chiffre c'est la taille de la dimension n. 


® Le deuxième paramètre c'est le variant à affecter au tableau. 


. Les boucles 
CREATIVE COMMON BY NC-ND 


FREE PASCAL permet de répéter à l'infini des instructions de calculs. Les 
boucles permettent de répéter simplement des instructions afin de procéder à 
des calculs lourds. 


- © La boucle “for” 


L'instruction "for" permet de boucler sur une période finie. 
Le début et la fin sont donc délimités. 


© HE Syntaxe de l'instruction for 


Voici deux écritures de l'instruction "for". 


for compteur:= debut to fin do instruction; 
for compteur:= fin downto debut do instruction; 


Une boucle commence au début, c'est la boucle montante. L'autre commence 
à la fin. Elle est descendante. 


Si "debut" est plus grand que "fin" l'instruction des boucles n'est pas exécutée 
du tout. La boucle n'a alors aucun effet. 


for compteur:= debut to fin do 
Begin 


instruction]; 
instruction? ; 
End; 


O©O M La boucle montante 


program utilisation_de_la_bouclel; 
var n : integer; 
begin 
for n:=1 to 7 do 
writeln(n,' a pour triple ,3*n) 


end. 


Ce programme écrit "1 a pour triple 3", puis "2 a pour triple 6", ceci jusqu'à 7. 


© M La boucle descendante 


program utilisation_de_la_boucle2; 
var n : integer; 


begin 
for n:=7 downto 1 do 
writeln(n,' a pour triple ‘,3*n); 
end. 


Ce programme écrit la même chose que l'exemple précédent. Seulement la 
phrase va démarrer à 7 pour terminer à 1. 


+ © M Recommandations 


Prohibez l'affectation de la variable de la boucle. La variable d'une boucle for 
ne doit pas non plus être testée en dehors de la boucle. Le langage PASCAL 
n'assure pas ces possibilités. 


+ © M Exercices 


Écrire un programme affichant l'alphabet complet. Utilisez les fonctions "ord", 
transformant un caractère en nombre, et "chr” transformant un nombre en 
caractère. 


- © La boucle ‘while 


La boucle "while" permet de boucler sur une période indéterminée après avec 
un test. Le test est exécuté à chaque fin de boucle, afin de pouvoir sortir de la 
boucle. 


S'il est impossible de sortir de la boucle, le programme devient incontrôlable. 
On peut l'arrêter grâce à LAZARUS ou en appuyant sur ALT+F4. 


+ © M Remarque importante 


Pour interrompre un programme sous LAZARUS : 
® Retournez sur le menu LAZARUS. 
® Allez sur "Exécuter". 
® Cliquez sur "Arrêter" voire sur "Réinitialiser le débogueur", si cela ne 
marche pas. 


Il convient donc de tester une boucle sur l'ensemble des ses limites, en créant 
des procédures ou fonctions permettant de simplifier les tests, puis en les 
ajoutant dans un deuxième programme. Nous verrons cela dans la 
Programmation procédurale avancée. 


+ © M Syntaxe de l'instruction "while" 


while expression_booléenne do instruction; 


Si l'expression booléenne est fausse l'instruction n'est jamais exécutée. 
L'instruction est exécutée tant que l'expression booléenne est vraie. 


"instruction" peut ici aussi être remplacée par un ensemble d'instructions. Cet 
ensemble peut aussi commencer par "begin" pour finir par "end:;" en englobant 
un ensemble d'instructions. 


Program exemple _boucle_jusqu_a; 
var n : integer; 
begin 
repeat 
write(' Donner un entier positif : ‘); 
readin(n); 


until n<0; 
writeln('vous venez de taper un nombre négatif"); 
end. 


Voici un programme à durée infinie si on répond à la demande. 
On sort du programme quand le nombre donné est négatif. 


+ © La boucle “repeat” 


La boucle "repeat" permet de boucler sur une période indéterminée. Un test 
est effectué à chaque fin de boucle. 
On rentre donc toujours au moins une fois dans une boucle "repeat". 


+ © M Syntaxe de l'instruction "repeat" 


repeat 
instruction_]; 
instruction_2; 


instruction_n; 
until expression_booléenne ; 
Exécutez les instructions Jusqu'à Ce que "expression_booléenne” soit à vrai. 


+ © M Exercices 


Créez une fenêtre avec un bouton qui s'agrandit à l'affichage de la fenêtre pour 
prendre toute la fenêtre. Utilisez l'instruction "Application.ProcessMessages" 
une fois dans la boucle pour permettre d'afficher la fenêtre de s'afficher à 
chaque boucle. 


+ © M Exercices 


Calculez grâce à votre Application la moyenne de notes fournies au clavier 
avec un dialogue défilant des questions ainsi: 

combien de notes ? 4 

note 1 : 12 

note 2 : 15.25 

note 3 : 13.5 

note 4 : 8.75 

moyenne de ces 4 notes : 12.37 


+ ©O "Continue et ‘Break 


_ILest possible d'écrire cela : 
While true do 
Begin 
if expression_booléennel Then Continue; 
instructions; 
if expression_booléenne2 Then Break; 
End; 


Si " expression_booléennel" prend la valeur "true" alors on passe au nœud 
suivant sans exécuter les instructions suivantes. 
Si " expression_booléenne2" prend la valeur "true" alors la boucle se termine. 


"Break" permet de quitter une boucle. "Continue" passe un nœud à l'endroit 
où il est exécuté. 

Vérifiez une boucle sur l'ensemble de ses limites, afin de ne pas planter votre 
programme. 


+ © Les procédures ou fonctions 


récursives 


Les boucles permettent de gérer des instructions répétitives définies. Il est 
possible de gérer des instructions répétitives non définies avec les procédures 


et fonctions récursives. 


program Project]; 
{$mode objfpc}{$H+} 


uses 
Classes, 

{ you can add units after this } 
Variants, SysUtils; 


Var MonTableau : Variant; 
Procedure AfficheVariant ( const Avariant : Variant }; 
var i : Integer; 
Begin 
If VarlsClear ( Avariant ) Then 
Begin 
write ('Clear' ); 
Exit; 
End; 
If VarlsOrdinal ( Avariant ) Then 
Begin 
write ( IntToStr( Avariant )) 
Exit; 
End; 
If VarlsStr ( Avariant ) Then 
Begin 
write ("" + Avariant +") 
Exit; 
End; 
If VarlsArray ( Avariant ) Then 
Begin 
write ('['}; 
for i := VarArrayLowBound(  Avariant, 
VarArrayHighBound ( Avariant, 1) do 
Begin 
AfficheVariant ( Avariant [il] ); 
ifi < VarArrayHighBound ( Avariant, 1 ) Then 


1 


) 


to 


write (',"); 
End; 
writeln (']'); 
Exit; 
End; 
If VarlsFloat ( Avariant ) Then 
Begin 
write ( FloatToStr( Avariant ) ); 
Exit; 
End; 
End; 
Begin 
MonTableau := VarArrayCreate ( [0,2], varVariant ); 
MonTableau [0] := VarArrayCreate ( [0,2], var Variant ); 
MonTableau [0][1] := ‘unechainel'; 
MonT ableau [1] := ‘unechaine2; 
AfficheVariant ( MonTableau ); 
End. 


Ce programme crée un tableau de variants et l'affiche grâce à une fonction 
récursive. La procédure peut être centralisée au sein d'une unité de fonctions 
de variants. 


De la même manière que "Break", "Exit" permet de quitter une procédure. 
Cependant méfez-vous de cette utilisation lorsque vous restructurez vos 
sources. 


Aussi "Abort" permet d'arrêter toute exécution de Code, en créant une 
exception. 


Vous voyez que ce programme n'est pas suffisamment modulaire. Créez donc 
plus de procédures, afin de simplifier sa maintenance. 


La procédure "AfficheVariant" s'appelle elle-même. Pour ne pas créer une 
boucle infinie, elle s'appelle en changeant de variant et en éliminant un niveau 
de tableau. 


Créer ses propres types 
CREATIVE COMMON BY NC-ND 


+ © Introduction 


Pourquoi définir vos propres types ? 

Les types prédéfinis permettent de manipuler aisément des nombres ou des 
caractères. Mais, vous pouvez être amené à traiter d'autres sortes 
d'informations, par exemple: des mois de l'année (janvier, février.) les jours 
de la semaine (lundi, mardi.….), des notes de musique, des codes couleurs 


(pourpre, brun van dick...). 


Vous pouvez dans ce cas optimiser l'information correspondante, par 
exemple 1 pour janvier, 2 pour février. ou encore ‘A’ pour as, "R' pour roi... 


Mais PASCAL vous permet de manipuler ces informations d'une manière plus 
naturelle en leur attribuant le nom de votre choix tel que janvier ou février. 
Pour ce faire, il vous suffit de fabriquer ce que l'on appelle un type défini par 
énumération. On appelle ce type le type énuméré. C'est un type dans lequel 
vous énumérez chacune des valeurs possibles. 


Par ailleurs, il arrive fréquemment que l'on ait à manipuler des informations 
dont les valeurs ne peuvent couvrir qu'un intervalle restreint de valeurs. Par 
exemple, un âge pourrait être un entier compris entre 0 et, disons. 150. Une 
note d'élève peut être un entier compris entre 0 et 20. Une lettre minuscule est 
un caractère compris entre ‘a' et 7". 


Lorsque l'ensemble des valeurs possibles est ainsi restreint, il peut être 
intéressant d'en tenir compte dans le programme. 


PASCAL vous autorise ainsi à définir de nouveaux types comme intervalles 
d'un autre type scalaire, ce qui vous permet de bénéficier: 
0 © M d'une meilleure lisibilité du programme. 

M d'un contrôle des valeurs qui seront affectées aux 
variables de ce type. 

BE dun gain de place mémoire lié au fait que, la plupart du 
temps, les variables d'un type intervalle occupent moins 
de place que les variables du type initial dit type "hôte" 
ou type "de base”. 


+ © M Recommandations 


La déclaration d'un type doit être effectuée avant la déclaration des variables 
du dit type. 


C'est pourquoi les déclarations publiques sont après la clause uses et avant le 
Code Source exécuté. 


+ © Créer ses types énumérés 


program Exemple _de_type_enumere ; 
type tjour = (joLundi, joMardi, joMercredi, joJeudi, jo Vendredi, 
JoSamedi, joDimanche); 
var jdate : tjour ; 
begin 
for jdate:= joLundi to joDimanche do 
begin 
writeln ("Voici un nouveau jour'); 
if jdate = joMercredi then 
writeln (‘Les enfants sont en congé’); 
if jdate = jo Vendredi then 
writeln (‘Bientôt le week-end !"}; 
if (jdate=joSamedi) or (jdate=joDimanche) then 
writeln (‘On se repose) ; 
end. 


+ © Règles à respecter 


type nom_du_type = (ndtidentificateur_1,ndtidentificateur_2, …., 
ndtidentificateur_n) ; 


Il est préférable de mettre, devant chaque identificateur, jusqu'à trois lettres, 
disposant de l'abréviation de votre type énuméré. Pour retrouver facilement 
chaque énumération de même type, une abréviation sur deux lettres est 
recommandée. 


Ne perdez pas de vue les remarques suivantes: 
1. Un identificateur ne peut être un mot réservé. 
2. Un même identificateur ne peut pas désigner plusieurs choses 
différentes. 
3. Une constante n'est pas un identificateur. 
4, En PASCAL, tout identificateur doit être déclaré avant d'être utilisé. 


+ © HE Unidentificateur ne peut être un mot 
réservé 


Ainsi, pour déclarer un type "note de musique", ce type énuméré n'est pas 
valide : 

type note = (do, re, mi, fa, sol, la,si); 
Car do est un mot réservé. 


On définit en général un type énuméré en commençant chaque énumération 


ar l'abréviation du type. Aussi un type commence en général par "t”. 
type tnote = (ndo, nre, nmi, nfa, nsol, nla, nsi); 


On retrouve ainsi facilement chaque note ou le type, grâce à la complétion. La 
complétion permet de terminer un mot, en allant le chercher dans le 
programme édité. La complétion s'active avec "Ctrl" et "Espace". 


+ © M Un même identificateur ne peut pas 
désigner plusieurs choses différentes 


Si vous souhaitez définir en plus du type jour déjà rencontré, un type 
"our_travail" correspondant aux jours de la semaine, vous songez peut-être à 


ainsi: 
type tjour = (joLundi, joMardi, joMercredi, joJeudi, jo Vendredi, 
JoSamedi, joDimanche) ; 

ttravail =  (joLundi, joMardi, joMercredi,  joJeudi, 
jo Vendredi) ; 


Cela serait rejeté par PASCAL puisqu'un identificateur tel que mardi 
représenterait deux entités de types différents. 


Bien entendu, dans votre esprit, le type "ttravail" n'est pas totalement différent 
du type "tjour”. Il est plutôt inclus dedans. Cependant le Compilateur FREE 
PASCAL ne peut pas le deviner. Le type intervalle permet de venir à bout de 
ce problème. 


° © M Une constante n'est pas un 
identificateur 


Il n'est ee question de déclarer un type par une énumération de nombres 


Dans ce cas 1 _ impor bl e de calculer sans uüliser de Conditions 
alourdissant le programme. 


su yY 


sr ET ('a 


Dans ce cas le Compilateur transforme ces voyelles en nombres entiers en 
débutant par 0. L'utilisateur de voit pas les voyelles car les constantes définies 
ont été remplacées. 


Le type énuméré est traduisible en chaîne. Cependant une fonction de test de 
voyelle est plus efficace que le type énumération qui ne fait que compliquer la 
création de la fonction de test. 


Le eue d deals 


Program voyelles: 
{$mode objfpc}{$H+} 


uses 
Classes, 


SysUtils 
{ you can add units after this }; 


Function estVoyelle ( const lettre : Char ): Boolean; 


Begin 
case lowercase(lettre)[1] of 
a',e',1,'o',;u','y': Result := True; 
else 
Result := False; 
End; 
End; 
Var i, les_voyelles :integer; 
chaîne : String; 
Begin 
writeln('Entrez une chaîne :' ); 
readin ( chaîne ); 
les_voyelles := 0 ; 
for i:= 1 to length ( chaîne ) do 
if estVoyelle ( chaîne [i] ) then 
Begin 
inc ( les_voyelles ); 
End; 
writeln ( ‘La chaîne ‘+ chaîne + 
les_voyelles ) +" voyelle(s).' }; 
End. 


" contient ‘+IntToStr ( 


Ce programme écrit "La chaîne "machaine" contient 4 voyelle(s)". Les types 
PASCAL sont faits pour simplifier la création de type, pas la compliquer. 


"lowercase" renvoie une chaîne. Pour tester plus rapidement nous nous 
plaçons sur le premier caractère de la chaîne grâce à "[1]". En effet il y aura 
nécessairement un seul caractère dans 
lowercase(lettre)[1] of" est ici due au fait que lowercase ne retourne pas de 


type char. 


la chaîne de retour. 


+ © Type intervalle 


Voici, par exemple, comment déclarer un type nommé "tage” dont les valeurs 
_seraient des entiers compris entre O et 150 : 
type tage = 1 .. 150; 


On peut utiliser une constante définie avant la déclaration de type:__ 


const age_max = 150 ; 


type tage = 1 . age_ max ; 


Il est ensuite possible de déclarer des variables du type "tage", par exemple: 
var age_pere, age_mere, courant : tage ; 


Notez bien que le type "tage" n'est plus, à proprement parler, un nouveau type. 
Ses valeurs appartiennent simplement à un intervalle d'un type déjà défini. Ici 
le type est prédéfini en type entier. 


Ainsi, des variables du type "tage” peuvent être manipulées de la même 
manière que des variables entières, c'est-à-dire être lues, écrites ou intervenir 
dans des calculs. 


_Voici des exemples corrects : 


var n : Integer; 


n := age_pere + age_mere ; 
courant := age_pere + 10 ; 


Notez bien que "age_pere" + "age_mere” est une expression de type entier. Sa 
valeur peut dépasser 150 sans que cela ne pose de problème. 

Une seule restriction est imposée aux variables du type âge : elles ne peuvent 
se voir affecter de valeurs sortant de l'intervalle prévu. 


Ainsi, en principe, l'affectation "courant := age_pere + 10" entraîne une erreur 
si la valeur de "age_pere + 10" est supérieure à 150. II en irait de même si, en 
réponse à l'instruction "read" précédente, l'utilisateur fournissait une valeur en 
dehors des limites 0 .. 150. 


+ © MH L'exemple 


L'exemple précèdent définissait un type intervalle à partir d'un type entier. On 
dit que le type hôte, type de base, est le type entier. Mais le type hôte peut être 


un quelconque type ordinal. 


Voici deux exemples de type intervalle définis à partir d'un type énumération, 
à savoir le type jour du paragraphe 2: 

type tjour=(joLundi, joMardi, joMercredi, joJeudi, jo Vendredi, 
JoSamedi, joDimanche) ; 

type tjour_travail=joLundi .. jo Vendredi ; 

type tweek_end=joSamedi .. joDimanche ; 


Ainsi, les valeurs du type "tjour_travail" sont les 5 constantes: "joLundi”, 
“oMardi", “joMercredi”, “joJeudi"” et "“JoVendredi”. Celles du type 
"tweek_end" sont les deux constantes "joSamedi" et "joDimanche”. 


Là encore, les variables déclarées de type "tjour_travail" ou "tweek_end" 
peuvent être manipulées comme n'importe quelle valeur du type jour. Ainsi on 
déclare: 

var aujourd_hui : tjour_travail ; courant : tjour ; 


_Ces affectations seront correctes: 
aujourd_hui:= jo Vendredi ; 
courant:= succ (aujourd_hui) ; 


Notez bien que "courant" prend la valeur "samedi". En effet, bien que 
aujourd_hui" soit de type "tjour_travail", le résultat de "succ(aujourd hui)" 
est du type hôte "tjour_travail", à savoir, du type "tour". Donc "joSamedi" est 
une valeur acceptable pour cette expression ainsi que pour la variable 
"courant". 


d'un type intervalle : 
type nom_du_type = début _de_l_intervalle..fin_de_1_ intervalle; 


+ © Le type tableau 


Nous souhaitons déterminer, à partir de 20 notes fournies en données, 
combien d'élèves ont une note supérieure à la moyenne de la classe. Pour 
parvenir à un tel résultat, nous devons: 
0 © M Déterminer la moyenne des 20 notes. 
M Déterminer combien, parmi ces 20 notes, sont supérieures 
à la moyenne précédemment obtenue. 


Vous constatez que pour ne pas être obligé de demander deux fois les notes à 
l'utilisateur, il nous faut les conserver en mémoire. Il est donc inefficace de 
prévoir 20 variables différentes. Cette façon de procéder serait difficilement 
transposable à un nombre important de notes. 


Le type tableau va nous offrir une solution convenable à ce problème, à 
savoir: 

0 © MPa des déclarations appropriées, nous choisissons un 
identificateur unique pour repérer notre ensemble tableau 
de 20 notes. 

BB Nous pouvons accéder individuellement à chacune des 
valeurs de ce tableau, en la repérant par un indice ou 
index précisant la position dans le tableau. 


program Exemple_tableau_1 : 
const nb_eleves = 7 ; 
type tab_notes = array [1..nb_eleves] of real ; 
var notes:tab_notes ; 
1,nombre:integer ; 
somme,moyenne:real ; 
begin 
writeln (‘donnez vos ',nb_eleves,' notes”); 
for i:=1 to nb_eleves do readin(notesli]); 
somme:= 0.0; 
for i:= 1 to nb_eleves do somme:= somme + notes|i] ; 
moyenne:= somme/nb_eleves; 
nombre:= 0; 
for i:= 1 to nb_eleves do if notes[i]> moyenne then nombre:= 
nombre+]; 
writeln(moyenne de ces, nb_eleves, "notes', moyenne:8:2 ); 
writeln(nombre,' eleves ont plus de cette moyenne); 
end. 


Avec ce programme vous donnez vos 7 notes, par exemple : 
111251359135 10 


Moyenne de ces 7 notes 10.57 
4 élèves ont plus de cette moyenne 


+ © Utilisation du type array 


Lorsque l'on veut manipuler beaucoup de variables temporaires de même type 
il est intéressant de créer un ou des types tableaux. 


Une variable temporaire sert à créer un résultat. C'est une variable de calcul. 
Une variable temporaire peut cependant être persistante. Elle est alors stockée 


sur le disque dur de l'ordinateur. Dans ce cas on n'utilise pas le type array 
mais un gestionnaire de données. 


+ © MH Syntaxe 


type nom_du_tableau = array [type_intervalle] of type_éléments 


, 


Le type intervalle a été décrit précédemment. Il est décrit comme ceci : 
debut_intervalle..fin_intervalle 


"debut_intervalle" et "fin_intervalle" déterminent des entiers ou une partie 
d'une énumération. 


as QE aDICEAUX à DIU J ] J ar a 
array{type_intervalle _1] of [type_ intervalle 
[type_intervalle _2] of type_element 
array[type_intervalle _1, type_intervalle _2, type_intervalle _3 ] 
of type_element 


Attention ! 

Créer un tableau à plusieurs dimensions demande beaucoup de 
mémoire. Il est préférable de vérifier la taille que prend un tableau 
à plusieurs dimensions. 


+ © M Exercices 


LL © Remplir un tableau avec des nombres aléatoires, puis calculer le 
maximum et le minimum de ce tableau. 
© Même chose que précédemment avec en plus les numéros des 
cases du tableau où se trouvent le maximum et le minimum. 


© Écrire un programme permettant de déterminer les K premiers 
nombres premiers (1 exclu), la valeur de Kk étant fixée dans le 
programme par une instruction const. On conserve les nombres 
premiers dans un tableau, au fur et à mesure de leur découverte. 
On utilise la remarque suivante pour décider si un nombre entier 
est premier : n est premier s'il n'est divisible par aucun nombre 
premier (1 exclu) inférieur ou égal à la racine carrée de n. 

© Réaliser un programme de tri alphabétique de mots fournis au 
clavier. Le nombre de mots est dans une instruction "const". 
Chacun d'entre eux ne comporte plus de 20 caractères. 

© Réaliser un programme remplissant aléatoirement un tableau 
10*10 des 6 nombres ,1 à 6. Puis calculer la moyenne de chaque 
ligne. 

© Écrire un programme permettant de calculer la multiplication de 
2 tableaux de même dimension n*n. Le tableau résultat est créé 
à partir la multiplication des deux tableaux de base. 


+ © MH Syntaxe 


Au sein d'une déclaration type ou var, la définition d'un type enregistrement 
tai Je 

Type Enregistrement : 

record 
identificateur1 : description_de type_1 ; 
identificateur2,identificateur3 : description de type_2 ; 
identificateur_n : description_de_type_n ; 

end; 


Notez que l'instruction "end; termine la description de l'enregistrement. 
Celle-ci est comparable au contenu d'une instruction var, avec ses listes 
d'identificateurs et ses descriptions de types. Ces derniers peuvent être aussi 
bien des identificateurs de type que des descriptions effectives. 


Jusqu'ici, nous avons vu qu'un même identificateur ne pouvait être défini 
qu'une seule fois. Le type enregistrement apporte en quelque sorte une 
exception logique à cette règle, car il est possible de donner le même nom à 
des champs de deux types enregistrements différents. 


En effet, dans un tel cas, le Compilateur FREE PASCAL est en mesure de 
lever l'ambiguïté grâce au préfixe nom d'enregistrement, précédant ce nom de 
champ. 

Néanmoins, pour des raisons de clarté des programmes, il est conseillé de ne 


pas abuser de cette possibilité. Elle peut entraîner quelques ambiguïtés, en cas 
d'utilisation d'instructions "with" multiples. 


Aucune restriction n'est apportée à la nature des différents champs qui peuvent 
être à leur tour, de type structuré. Ainsi on peut très bien définir des 
enregistrements, comportant eux-mêmes des enregistrements ou des tableaux. 
Nous avions déjà fait une remarque analogue, à propos des tableaux. On peut 
aussi définir des tableaux d'enregistrements. 


Examinons dès maintenant un exemple d'enregistrements d'enregistrements. 
Nous rencontrerons ultérieurement un exemple de tableaux d'enregistrements. 


+ © M Exemples 


Supposons qu'à l'intérieur de nos enregistrements de type "tpersonne", nous 
ayons besoin d'introduire deux dates: la date d'embauche "date_embauche" et 
la date d'entrée, dans le dernier poste occupé "date_poste". 


Ces dates sont elles-mêmes formées de plusieurs champs. "jour_s" contient les 
jours de la semaine. "jour" contient un jour du mois. "mois" contient un mois. 
"annee" contient une année. 


N F der | 
type tdate = record 

annee : longint; 

jour_s : (jlun, jmar, jmer, jjeu, jven, jsam, jdim) ; 


jour : 1.31; 
mois : 1..12 ; 
end ; 


type tpersonne = record 
nom : string [30] ; 
prenom : string [20] ; 
date_embauche : date ; 
date_poste : date : 
nbenfants : 0..60; 
masculin : boolean ; 

end ; 

var employe, courant : tpersonne ; 


Quelques exemples de références à des champs de la variable "employe” vous 
permettent de comprendre l'utilisation d'un type "record". 
"employe.date embauche.annee" désigne l'année d'embauche de 


l'enregistrement "employe". Cette information est de type longint. 
"employe.date embauche" désigne la date d'embauche de l'enregistrement 
"employe”". Cette information est de type date. 


ee SOS 


if employe.date embauche.jour_s = lun then 


. © L'instruction With 


+ © M Exemples 


La manipulation globale d'enregistrements, définis par l'instruction "record", 
n'est possible que dans le cas d'affectations, à condition que l'on manipule tous 
les champs en même temps. 


Supposons que nous souhaitons écrire les informations de l'enregistrement 
"employe". Nous pourrions procéder ainsi en supposant que "c" est de type 
char : 
writeln (nom : ', employe.nom) ; 
writeln (‘prenom : ", employe.prenom) ; 
if employe.masculin then c :='M' 
else c :="F'; 
writeln (‘sexe : ', c, " nbre enfants’, employe.nbenfants) ; 


1: : " 4 " 


with employe do begin 

writeln (nom :', nom); 

writeln (‘prénom : ', prenom) ; 

if masculin then c :='M'else c :='F'; 

writeln ('sexe : '. c, "nbre enfants’, nbenfants); 
end; 


begin 


end; 


L'instruction "with employe” demande au Compilateur de préfixer, par 
"employe", tous les identificateurs qui correspondent à un nom de champ, de 
l'enregistrement "employe”. Sa portée est naturellement limitée à l'instruction 
souvent composée, mentionnée à la suite du "do". 


Un identificateur qui ne correspond pas à un nom de champ, de 
l'enregistrement “"employe", n'est pas affecté par cette instruction. Ainsi 
l'instruction "with employe" va demander à vérifier si une variable utilisée à 
l'intérieur de l'instruction est définie dans "employe”. Si elle n'y est pas, le 
Compilateur cherche dans les variables locales, puis globales. 


° © M Imbrication 


Avec les déclarations des types "tdate”, "tpersonne" et la variable "courant" du 
paragraphe précédent, nous pouvons écrire ces instructions utilisant deux 
with courant do begin 
nom := … 
prenom := 
with date embauche do 
begin 
Jour _s :=… 
jour :=… 
MOIS := … 
annee := … 
end ; 
end ; 


ne st : 
with courant, date_embauche do 
begin 

nom := … 

prenom := … 

Jour _s :=… 

jour :=… 

mois := … 

annee := … 


end ; 


En effet les noms de champ appartenant à "date _embauche" et seulement 
ceux-là sont préfixés par "date_embauche". Puis, les champs appartenant à 
"courant", y compris ceux éventuellement préfixés par "date embauche”, sont 
préfixés par "courant". 


Ce mécanisme d'imbrication des "with" risque d'entraîner quelques 
ambiguïtés, lorsque des noms de champs identiques sont définis au sein 
d'enregistrements différents. 


Dans ce cas le Compilateur FREE PASCAL, qui se trouve confronté à deux 
préfixes possibles pour un nom de champ, choisit celui qui a été cité en 
dernier donc celui de niveau le plus imbriqué. Nous vous conseillons d'éviter 


ce genre de situation, bien compromettante pour la compréhension du 
programme. 


+ © M Exercices 


Écrire deux programmes centralisés, l'un textuel puis l'autre graphique créant 
un annuaire de 10 personnes, à trier par ordre alphabétique du nom. 


Programmation procédurale 


avancée 
CREATIVE COMMON BY NC-ND 


+ © Introduction 


Dans LAZARUS vous utilisez des Objets afin de créer des Logiciels 
graphiques complexes. Seulement il est nécessaire de bien connaître la 
programmation procédurale. Cette programmation sans Objet permet de 
réaliser un Code Source plus proche du langage machine. 


+ © Centralisation 


Nous avons vu que les fonctions ne renvoyaient qu'un paramètre en sortie. 

Dans le chapitre précédent une procédure imprimait une note. Modifions la 

procédure "imprime" afin de créer une fonction pouvant être réutilisée 

facilement. Transformez le Code afin de procéder à réutilisation de votre 

Code. 

function get_note_chaîne(n : tnote) : String; 

begin 

WriteStr(Result, n ); 

result:=copy(Result,2,length(result)); 
end ; 

procedure imprime_note (n : note) ; 

begin 

writeln ( get_note _chaîne(n)); 

end; 


La procédure "imprime_note" exécute la même action que celle montrée 
précédemment. La seule différence est que cette fois-ci on peut réutiliser la 
fonction "get_note_chaîne" pour utiliser la chaîne résultat autrement. 


On pourrait donc réutiliser la fonction "get_note_chaîne", pour par exemple 
l'utiliser en mode graphique. Ainsi on pourrait couper-coller cette fonction 
dans une unité à part, appelée par exemple "u_ functions music”, ou 
"u_fonctions_musique". On pourrait y placer le type “note”. Ainsi d'autres 
applications de musiques pourraient utiliser, de la même manière, ces sources 
centralisées. 


+ © M Exercice 


Centralisez la fonction "get_note_chaine" dans l'unité "u_functions_music". 
Attention ! 


Il faudra éviter au maximum de lier une unité, pour la lier de 
nouveau vers la même unité. Cela voudrait dire que les deux unités 


ont un lien tellement fort qu'elles sont dépendantes l'une de l'autre. 
Il n'y aurait presque aucun intérêt à lier récursivement comme cela. 
Préférez un seul lien entre chaque unité. L'unité la plus élémentaire 
ne doit pas faire appel à une unité plus complexe. 


Nous vous expliquerons, dans le chapitre sur les Composants, comment 


centraliser votre savoir-faire, dans votre regroupement d'unités appelé paquet. 
LAZARUS automatise la gestion des Composants. 


+ © M Exécution au chargement 


Il est possible d'exécuter du Code Source dès le chargement de l'unité afin 
d'automatiser la gestion de l'unité. Ces instructions sont à utiliser en dernier 
recours. 


Le Code Source placé après le mot clé "initialization" permet de créer des 
Objets toujours en mémoire dès que l'on utilise l'unité. 


Le Code Source placé après le mot clé "finalization" permet de détruire les 
Objets en mémoire à la fermeture du programme. 


+ © M Exercice 


Transformez l'Application textuelle en programme graphique, en gardant et en 
centralisant vos Sources. 


+ © M Optimisation des arguments 


Il est possible d'optimiser la vitesse d'exécution avec des mots clés situés 
avant les définitions d'argument. 


Voyons la ligne de déclaration de la procédure paramétrée : 


function get_note_chaîne(n : tnote) : String; 


La procédure d'impression de la note possède un argument. Cet argument va 
être réutilisé ensuite sans être réécrit . Si vous essayez de changer la valeur de 
" " 


"n" dans la procédure, "n" sera toujours de la même valeur après l'utilisation 
de la fonction. 


Pourquoi ? 


Ne mettre aucun mot clé avant le paramètre indique au Compilateur de 


mount 


recopier la valeur "n" partiellement ou entièrement dans une deuxième 


mount 


variable. Cela permet de travailler sur "n" sans avoir à recréer la variable. 


Seulement dans l'exemple précédent nous ne modifions pas la note "n" dans la 


procédure. La variable est donc recopiée pour rien. 
Mettre le mot clé "const" juste avant la déclaration du paramètre va cette fois- 
ci indiquer deux choses : 

® La variable passée en paramètre n'est pas modifiable 

® La variable passée en paramètre n'est pas recopiée 


idéale est donc : 
function get_note_chaîne ( const n : note) : String; 


Le Compilateur FREE PASCAL optimise les pointeurs, les adresses 
permettant de retrouver les variables, par les mots clés "const" et "var". 
Lorsqu'on déclare un paramètre par ces deux mots clés on utilise des pointeurs 
cachés. FREE PASCAL protège votre programme d'une mauvaise utilisation 
de la mémoire par ces mots clés. 


Il vous permet aussi de savoir si votre pointeur peut ne pas se modifier par le 
2 " 


mot clé "const". En effet le mot clé "const" empêche l'écriture d'un type 
simple ou l'affectation de la variable d'un Objet. 


On pourrait utiliser un paramètre "const" en tant que paramètre "var". Cela ne 
gênerait pas. Seulement cela indiquerait au programmeur que l'on modifie la 
variable ce qui l'induirait en erreur. Préférez toujours la déclaration avec le 
mot clé "const" avant de devoir faire une déclaration de fonction, puis créer 
un deuxième paramètre "var" si votre Code l'exige, sinon laissez tel quel. 


- © Sources lisibles 


Pour créer un programme l'anticipation est nécessaire. C'est pourquoi la 
centralisation mais aussi la surcharge de Composants permettent de mieux 
préparer l'avenir. Le bouton que vous avez utilisé dans le premier exemple est 
un Composant mais aussi un Objet. 


L'essentiel est d'avoir une structure du Code Source bien organisée. On doit 
savoir où se situe le Code Source facilement. L'Objet permet de regrouper le 
Code Source dans un Composant possédant des propriétés en anglais. Il est 
préférable de nommer ses fonctions en anglais afin de partager ses Sources 
plus tard. 


Ensuite le Code Source doit être clair, léger, facile à comprendre. Un Code 
Source clair c'est un Code Source optimisé allant à l'essentiel. Au départ on ne 
sait pas créer un Code Source optimisé car on ne comprend pas les calculs 
effectués. 


Créer une Source claire permettra ensuite de créer du Code léger. Chaque 
fonction ou procédure doit tenir sur l'écran. Sinon on passe trop de temps à 
chercher les erreurs. 


Les noms longs seront remplacés. Donc un nom long ne fait pas perdre de 
temps machine. 

Pour être facile à comprendre on doit revenir sur les Sources créées, les 
simplifier, et les tester après les avoir modifiées. C'est pourquoi mettre en 
place des tests automatisés permet de mieux comprendre sa façon de 
programmer pour anticiper les erreurs. 


+ © M Exercice 


Modifiez vos Sources pour les optimiser. 
Il est possible d'arrêter le programme grâce à LAZARUS, en revenant sur 


l'EDI. Essayez d'améliorer cela en permettant d'arrêter votre programme en 
cours d'exécution de la routine. 


+ © M Optimisation 


Il est encore possible d'optimiser le Code Source précédent. L'optimisation 
demande de la recherche afin de trouver les meilleures instructions pour ne 
pas avoir à réécrire ce qui est déjà fait. Il est intéressant de chronométrer une 
répétition d'instructions. 


| L nn 


Result : = Result +t [1 ]; 


Quand on trouve du Code Source optimisé sur INTERNET on voit qu'une 
addition entière peut s'écrire avec l'instruction "inc". C'est une vieille 
instruction PASCAL qui optimise PASCAL. Elle est donc disponible sur tous 


les compilateurs PASCAL. 


C « « I id ali I À 5 « c 


inc ( Result, t [ i ] ): 


Vous voyez que somme n'est utilisé qu'une seule fois au lieu de deux fois. 
C'est donc une optimisation. 


La fonction inc peut être écrite en langage machine grâce au Compilateur 
FREE PASCAL. Il est intéressant d'optimiser en assembleur certaines 
fonctions utilisées dans des boucles. 


Ceci additi Là 
inc ( Result }); 


Ceci t 12 
dec ( Result ); 


"dec" est une soustraction entière qui s'utilise de la même manière que "inc". 


division entière n'est quant à elle qu' 
var resultat, dividende, diviseur : integer; 
begin 
resultat := dividende div diviseur; 
end; 


Le reste d'une opération entière est perdu. Avec "div" il n'y a pas 
d'approximation entière. 


L'approximation est faite avec la fonction "round" utilisant un réel en 
paramètre. 


var resultat, dividende, diviseur : real; 
begin 

resultat := round ( dividende / diviseur, 2 ); 
end; 


Ce programme calcule une division avec une approximation éventuelle à deux 
chiffres après la virgule. 


Voici une autre approximation utilisant "round" : 


resultat := round ( dividende / diviseur + 0.5 j; 


Si le chiffre est supérieur ou égal à 0,5 et inférieur à 1 celui-ci sera remplacé 
par 1. 
Si le chiffre est positif et inférieur ou égal à 0,49 cela donne 0. 


+ © Les pointeurs 


L'instruction "inc" montrée précédemment n'optimise que des additions sur 
des entiers. Pour optimiser la lecture d'une chaîne on peut utiliser la procédure 
"AppendStr", ajoutant à une chaîne une autre chaîne. On peut aussi utiliser les 
pointeurs sur caractères. 


Les pointeurs sont des variables pour lesquelles on peut changer leur place 
dans la mémoire. En effet l'ordinateur alloue de la mémoire lorsque l'on crée 
une variable. Il est possible de récupérer l'adresse d'une variable avec la 
directive d'accès "@". 


Les chaînes sont des tableaux de caractères à une dimension. On peut donc 
scruter une chaîne comme un tableau. 


Les adresses des pointeurs, permettant de retrouver les variables, utilisent une 
simple addition pour scruter une chaîne ou un tableau. Un pointeur c'est du 
Code Source proche de la machine. Ce jeu d'instructions met la première lettre 
_en majuscule puis les suivantes en minuscules : 
Var chaine:string; Pointeur : PChar; i:longint; 
Begin 
chaine:='essai'; // On affecte sa chaîne. 
Pointeur := @chaine[1]; // Récupère l'adresse du premier 
caractère de la chaîne 
for i := 0 to length (chaine) -1 do // Scrute toute la chaîne 
begin 
if 1>0 then // Sommes-nous après le premier caractère 
// Caractère(s) en minuscule(s) 
Pointeur:= LowerChar(Pointeur) 
else Pointeur":= UpperChar(Pointeur’); // En majuscule 
inc (Pointeur); // Passe au caractère suivant en ajoutant 1 à 
l'adresse 
end; 
end; 
End; 


En testant vous pouvez vérifier la cohésion de votre routine. 

Le pointeur va récupérer l'adresse du premier caractère de la chaîne grâce à 
" @ " 

De même pour récupérer le caractère au lieu de l'adresse, mettez un "A" à la 
fin du pointeur. 


| 


Attention ! 

Le Compilateur ne vous avertit pas d'une erreur d'utilisation sur 
les pointeurs. Il est donc préférable d'utiliser des jeux de tests pour 
tester ses routines optimisées. 


LAZARUS protège les pointeurs pour éviter les erreurs. Aïnsi un 
pointeur copié est plus facilement égal à son pointeur d'origine. 


+ © MH Pointeur et mémoire 


Les pointeurs permettent d'optimiser un programme. Seulement, il s'agit de 
bien comprendre comment la mémoire fonctionne pour optimiser. 

L'étude du TVirtualTreeView permet de comprendre les pointeurs. 

Par exemple, si vous connaissez le nombre d'enregistrements que vous voulez 
ajouter à une liste, vous pouvez, grâce aux pointeur allouer la mémoire en une 
seule fois, au lieu de le faire à chaque ajout d'élément. 

Les pointeurs permettent aussi de supprimer les intermédiaires. Il faut 
seulement savoir lesquels. 


Va od | 
Type 
TEnregistrement = Record 
chaine: String; 
Entier: Integer; 
End; 
TPointeur = TEnregistrement; 
var MonPointeur: TPointeur; 
Begin 
New(MonPointeur); 
Je peux ici utiliser cette variable pointeur. 
FreeMem(MonPointeur); 
End; 


Si on veut allouer une liste, il s'agit d'utiliser GetMem, en comptant la 
mémoire à allouer grâce à SizeOf. 


+ © M Exercice 


Refaire le Code Source en non optimisé. 


- © Protection des pointeurs 


Bien évidemment, vous n'êtes pas du tout obligé d'utiliser le symbole @ dans 
vos logiciels. Laissez cela à ceux qui pratiquent le € si vous vous ne vous y 
retrouvez pas. En effet, le langage Pascal permet de protéger les pointeurs. 
C'est à dire qu'on peut comparer les pointeurs sans s'occuper de leur adresse 
exacte. 


Par contre, il est important de savoir comment fonctionne les pointeurs de 


RS ee ee 
P 


ointeur > Objet 


Lorsque vous créez une variable qui servira à comparer cet objet, voici 
_comment s'organise le lien vers l'objet : 


Variable pointeur — Pointeur = Objet 


Si vous créez une nouvelle variable pointeur, que vous affectez la dernière 
_variable pointeur, voici le lien vers l'objet : 


Variable pointeur = Variable pointeur = Pointeur > Objet 


Vous comprenez donc que comparer des variables de variables d'objet peut 
prendre du temps. En effet, la comparaison en Pascal amènera à comparer le 
premier pointeur créé. Donc l'exécution Pascal remontera l'ensemble de vos 
variables pointeurs pour accéder au pointeur de l'objet, afin de comparer si les 


Variable pointeur = Variable pointeur — Pointeur > Objet 


Cependant, une variable pointeur n'est qu'une adresse, donc prend peu de 


mémoire. Donc on peut être facilement incité à utiliser trop de variables 
pointeurs. 


Dans les faits les variables pointeurs doivent être centralisées dans votre 
logiciel. Elles sont soit une variable globale, soi une variable de fiche, privée 
si propre à la fiche, publique si dans la fiche principale. Si votre logiciel crée 
tout le temps votre fiche principale, il est préférable de placer vos variables de 
fiches comme des variables globales. 


+ © Règles générales 


Nous reprenons ici en les généralisant l'ensemble des règles permettant une 
bonne écriture des procédures ou des fonctions. Celles relatives à leur 
utilisation seront étudiées dans le paragraphe suivant. 


+ © MH Structure générale 


Chaque procédure peut être définie ou déclarée dans la partie déclaration entre 
le mot clé "interface" et “implementation”. Cela permet de réutiliser la 
procédure dans d'autres unités. 


Par ailleurs, la portée d'un identificateur est limitée à la procédure où il est 
défini, ainsi qu'à celles qui sont internes à cette dernière. 


Les identificateurs définis dans le programme principal sont connus partout. 
Cependant sont-ils réutilisables facilement ? 

Pensez effectivement à centraliser vos Sources afin de réutiliser facilement des 
définitions d'identificateurs génériques. 


+ © MH L'en-tête et les arguments formels 


L'en-tête d'une procédure ou d'une fonction précise: 
0 © M sonnom 
B arguments formels 
B Leur type 
M leur mode de transmission (par valeur ou par adresse) 


De plus, pour les fonctions, il spécifie le type du résultat. 


Voici quelques exemples d'en-têtes corrects : 

procedure ex 1(const n, p : integer ; const c : real); 

procedure ex2(const n : integer ; Var p : integer ; var x, y : real ; 
q : integer) ; 


En revanche, cet en-tête compile mais est incorrect : 
procedure ex3(n : 0..100; var x : real); 

Le type de n n'est pas explicité dans l'en-tête. il faudrait le définir dans le 
Code Source l'englobant et placer son identificateur de type à la place de 


"0.100". 


Cette Source ne compile pas : 


function ex4(x : real ; c : char); 


Il manque le type de la fonction. 


Exercices 


Écrire une procédure permettant de déterminer si un nombre est 
premier. Elle comportera deux arguments : le nombre à examiner, un 
indicateur booléen précisant si ce nombre est premier ou non. 

Écrire la procédure précédente sous forme de fonction.(facultatif) 
Écrire une fonction calculant la norme d'un vecteur à 3 composantes 
réelles. 

Écrire la fonction précédente sous forme d'une procédure. 

Écrire une procédure supprimant tous les espaces d'une chaîne de 
longueur maximale de 50 caractères. 

Écrire une fonction calculant le produit vectoriel de deux vecteurs à 3 
composantes réelles. 

Écrire une procédure simulant le lancé d'un dé à six faces. Utilisez la 
fonction "random" et la procédure "“randomize" ïinitialisant les 
“random”. (facultatif) 

Écrire un programme du jeu de 421 auquel jouent deux joueurs en 
utilisant un maximum de procédures ou fonctions. 


Gérer les erreurs 
CREATIVE COMMON BY NC-ND 


+ © {Introduction 


L'ordinateur ne peut s'auto-critiquer. Aïnsi il est obligatoire de tester dès tout 
changement dans le Code Source. Toute erreur de sémantique peut provoquer 
des dysfonctionnements dans l'exécutable. C'est pourquoi 1l est nécessaire de 
simplifier et revoir le travail. C'est important de commenter. 


+ © M Tests d'interface 


Les tests d'interface consistent à tester ce qui a été fait en situation réelle après 
avoir modifié du Code Source. Les erreurs que l'on ne trouve pas dans les tests 
d'interface doivent être analysées afin de comprendre ce qui a échappé à notre 
attention. Il faut se méfier de soi lorsqu'on teste. 


En Pascal, il est possible de trouver beaucoup d'erreurs en anticipant. On 
s'anticipe plus facilement en Pascal. Ensuite beaucoup d'erreurs d'exécution se 
trouvent avec de l'intuition. Par contre, les erreurs de pointeurs nécessitent de 
supprimer les fins de sources trop longues pour les réduire en petites parties 
testables avec des jeux de tests. 


+ © M Tester des routines 


Nous vous décrivons précisément comment créer des tests unitaires dans la 
création de votre premier Composant. Les tests unitaires vous permettent de 
modifier votre Logiciel sans se soucier des erreurs que vous engendrez, 
puisque vous vous fiez à vos jeux tests. 


Pour mettre en place ses jeux de tests, il faut utiliser le projet FPCUnit, fourni 
avec LAZARUS. Ce projet vous permet de surcharger votre projet initial avec 
des jeux de tests. Il faut pouvoir utiliser le projet sans et avec les jeux de tests. 


Tester consiste à vérifier les limites de votre routine. Dans la dernière routine 
on change les limites en entrée pour vérifier le résultat en sortie. Autrement dit 
il est inutile ici de vérifier m,n,o et p qui se situent au milieu de l'alphabet. Il 
faut par contre vérifier une fois m, M puis À, puis a, puis z, puis Z, puis O, 
puis 9, puis /, puis *, puis é, puis À. 


On vérifie donc une fois une lettre du milieu de la limite, puis les différents 
contours, puis des lettres en dehors de la zone, puis les fameux caractères 
accentués. Une fonction réutilisant ces résultats devra être aussi testée sur les 


limites altérées. 


En faisant des tests unitaires, puis des tests de mémoire, de surcharge ou 
d'optimisation, Vous pourrez devenir un programmeur capable de proposer et 
de participer à LAZARUS grâce à un Code Source maintenu correctement. 
Participer à LAZARUS permet de garder son existant. 


Il faudra donc créer un maximum de procédures ou fonctions, afin de faciliter 
les jeux de tests. Votre exécutable sera non seulement lisible, mais testable. 
N'hésitez pas non plus à optimiser. 


+ © M Tests unitaires 


Les tests unitaires ce sont une sur-couche à son programme. Cette sur-couche 
teste automatiquement un programme, méthode par méthode, en remplissant 
automatiquement le programme. Une sur-couche de tests unitaires n'est 
normalement pas liée à un serveur de données. Ce sont les tests de surcharge 
qui permettent de tester un serveur de données. 


Les jeux de tests sont mis en place par un partenaire. Si on les met en place 
seul, il faut connaître ses défauts et se méfier de soi. 

Les jeux de tests utilisent généralement une librairie qui surcharge le Code 
Source. On peut utiliser FPCUnit, des jeux de tests pour LAZARUS. Mettre 
en place des jeux de tests consiste à tester les limites de chaque procédure ou 
fonction. 


On peut cependant se limiter aux spécifications pour tester. Cela permet de 
créer moins de jeux de tests. Cela permet aussi de voir si l'ensemble tient la 
route. 


On teste les valeurs à la bordure des limites voulues. C'est à dire que l'on teste 
autour de l'extérieur et au milieu. En même temps on simplifie les procédures 
et fonctions. Il est préférable de ne pas utiliser l'accès aux données. Cela se 
fait avec les tests de surcharge. On surcharge les formulaires et Objets utilisés 
en définissant des valeurs retour à trouver en résultat des procédures et 
fonctions. 


*- © Tests de fuites en mémoire 


Les Objets LAZARUS ne sont pas tous détruits automatiquement. Lorsqu'on 
exécute un programme il est possible qu'une programmation mal faite laisse 
des blocs de mémoire inutilisables dans votre zone mémoire. 


Ainsi le programme plante, malgré lui, au bout d'un certain temps, parce qu'il 
n'a plus assez de mémoire viable. 


Il est donc fortement conseillé de tester la mémoire. 


Il est nécessaire de tester la destruction des Objets, en activant le mode 
débogage et l'unité "Heaptrc". 


Allez dans le menu "Projet", puis "Options du Projet", puis "Débogage”. 
Cochez le mode débogage et "Utiliser l'unité Heaptre". Ne pas utiliser 


valorind. 


Allez dans votre fichier "lpr" de projet. Ajoutez l'unité "SysUtils". 
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de votre projet, placez cette procédure : 


Application.Run:; 
SetHeapTraceOutput (ExtractFilePath (ParamStr (0)) + 
‘heaptrclog.trce"); 

end. 


Après avoir exécuté votre projet, vous avez, dans le fichier "heaptrclog.tre" du 
dossier de l'exécutable, l'ensemble des types ou Objets ajoutés ou "allocated", 
et ceux libérés ou "freed", qui doivent être dénombrés identiquement. 


Si les types d'Objets enlevés sont moins nombreux que les types ajoutés, vous 
avez ces types d'Objets non libérés à la fin du fichier de traçage. 


Vous pouvez alors placer une autre ligne de traçage SetHeapTraceOutput 
enregistrant dans un autre fichier, là où vous pensez que le type doit se 
libérer. 


Si vous ne trouvez toujours pas, après avoir fait une sauvegarde, supprimez du 
Code source après les Objets créés, ou dans la personnalisation de vos Objets. 


© Destruction de variables 


Le langage PASCAL Objet permet de créer des Objets grâce à ses variables 
typées. Pour créer du Code Source propre vous devez respecter la syntaxe, 
ainsi que les règles de destruction de vos variables en mémoire. 


Les variables simples comme les nombres, les chaînes de caractères, les 
tableaux typés, sont détruits, dès que leur Objet ou unité parente est détruite. 


Vous ne trouvez pas avec LAZARUS de destruction automatique des 
variables d'Objets. Seulement les Composants Objets se détruisent dès que 
leur fenêtre ou module propriétaire est détruit. 


On voit que l'auto-destruction si besoin n'est pas aussi optimisée qu'elle le 
prétendrait. LAZARUS permet donc de créer des interfaces hommes 
machines fiables, si vous informez correctement vos Constructeurs et 
Destructeurs d'Objets. 


+ © Destruction d'Objets 


Lorsque nous avons créé une interface graphique au tout début du livre nous 


avons utilisé un Objet "TForm". Cet Objet se détruisait correctement. 


Les Objets PASCAL ne sont détruits que sur demande. Si vous utilisez un 
Objet PASCAL, il doit être détruit ensuite si ce n'est pas un Composant. En 
effet les Composants sont détruits par un Composant parent si le paramètre 


TObject du Constructeur du Composant est utilisé. 


Par exemple l'Objet "TStringlist” permet de gérer des chaînes et des fichiers 
de chaînes. Ce n'est pas un Composant car il ne possède aucun paramètre dans 


son constructeur. 


uses Classes, SysUtils ; 


Procedure sauvegarder NombresPremiers ( const i_limite : Int64 ; 
const s_CheminFichier : String ); 
Var stl_Liste : TStringlist; 
t_Entiers : Array of LongWord; 
1, j : LongWord; 
premier : Boolean:; 
Begin 
stl_Liste := TStringlist.Create; 
setLength ( t_Entiers, 2 ); 
t_Entiers [ O ]:= 1; 
t_Entiers [ 1 ] := 2; 
try 
stl_Liste. Add ( IntToStr ( 1 )); 
stl_Liste. Add ( IntToStr (2 })); 
L= 2: 
while i <= i_ limite do 
begin 
inc (i ); 
premier := True; 
for j := low (t_Entiers ) + 1 to high (t_Entiers ) do 
if i mod t_Entiers [ j ] = 0 then 
begin 
premier := False; 
Break; 
end; 
if premier Then 
Begin 


stl_Liste.Add ( IntToStr (1 )); 
stl_Liste.SaveToFile ( s_CheminFichier ); 
setLength ( t_Entiers, high (t_Entiers ) + 2 ); 
t_Entiers [ high (t_Entiers )] :=i; 
End; 
end; 
finally 
stl_Liste.Destroy; 
end; 
End; 


begin 

sauvegarderNombresPremiers ( 200, "+ Directory Separator 
+'NbPremiers.txt'); 
end. 


On définit ici un tableau et un Objet "TStringlist”. Le "TStringlist” se détruit 
par FREE PASCAL lorsqu'on n'en a plus besoin, donc quand on arrête la 
routine exécutée. 


Par contre l'Objet "TStringlist” doit être à tout prix détruit. C'est pourquoi on 
utilise une gestion des erreurs afin de détruire cet Objet même s'il y a une 
erreur, comme une erreur d'enregistrement du fichier. On utilise donc try 
finally. Commencez par faire cela lorsqu'une routine de destruction ou 
d'édition est mise en place. 


Ensuite on écrit la routine qui teste les nombres premiers. Si le nombre 
premier est trouvé on le sauve dans le fichier en paramètre, puis on l'ajoute 
dans le tableau de nombres premiers. 


On peut utiliser un programme ou une unité de tests de mémoire pour vérifier 
que sa mémoire est bien utilisée. Cela ralentit le programme. 


*- © Gestion des erreurs 


Dans votre Logiciel, le développeur et l'utilisateur doivent être guidés par des 
documentations ou des formations. 


Aussi des erreurs peuvent se produire dans le Code servant au développement, 

ou dans celui servant à l'utilisateur. Par exemple des erreurs peuvent se 

produire quand on essaie d'accéder à un fichier ou quand on essaie de faire 

une division. 

En général les erreurs de développement, pour la division par zéro par 
zu 


exemple, doivent être en anglais et utilisent le mot clé "raise”, tandis que les 
erreurs de l'utilisateur sont multilingues, dans des "resourcestring". 


Anticipez ce qui va se passer dans votre programme. Imaginez un utilisateur 
tombant sur une erreur en anglais, alors qu'il ne connaît pas cette langue. 


En plus, est nécessaire un manuel de l'utilisateur, permettant de trouver les 
informations nécessaires à l'utilisation du Logiciel. 


+ © Les exceptions 


Les exceptions permettent de gérer les erreurs, ou bien de les rediriger 
correctement vers l'utilisateur. Méfiez-vous des Logiciels qui rapportent peu 
d'erreurs. En général on ne sait pas comment les utiliser. 


try 
for i:=0 to 20 do 
chaîne := chaîne + chaîne; 
except 
Showmessage ( ‘La chaîne de mon formulaire est trop longue. Il 
n'y a plus assez de mémoire." ); 
end; 


Cette gestion d'exception commence à "try" et finit à "end". La partie entre 
"try" et "except" rapporte vers la partie entre "except" et "end" l'erreur 
éventuelle. 


Dans cette gestion d'exception on induit qu'une erreur produite est due au 
manque de mémoire. 


try 
for i:=0 to 20 do 
chaîne := chaîne + chaîne; 
except 
On E:EOutOfMemory do 
Showmessage ( 'La chaîne de mon formulaire est trop longue. 
Il n'y a plus assez de mémoire. ); 
On E:Exception do 
Showmessage (Erreur avec la chaîne. Le résultat peut être 
tronqué.'); 
end; 


L'instruction de l'exception " E:EOutOfMemory" est appelée quand il n'y a 
plus assez de mémoire. Cette exception se produit en général avec les 
manipulations de tableaux à longueur variable. 


L'instruction de l'exception "On E:Exception do", suivie de sa gestion, 
récupère toutes les erreurs d'exception produites. Si elle est seule, elle peut 
être éludée. C'est pourquoi on place une exception, héritée au dessus de 
l'exception ancêtre, lorsqu'on utilise ce genre de gestion d'exception. 


+ © M Finally et except 


Si vous remplacez "except" par "finally" toute erreur après le "try" ira au 
"finally". Le finally sera toujours exécuté, même si un "except" l'entoure. 


Ainsi toute utilisation d'un objet sans propriétaire devra se servir du "try 
finally". Il faut à tout pris que tout ce qui a été créé soit détruit au cours de 
l'exécution du programme. 

Faites très attention aux "try except" sans aucun message, car ces derniers 
permettent d'annuler un ou tout message d'erreur. L'utilisateur peut ne pas 


savoir si ce qu'il essaie de faire ne fonctionne pas. 


Créez un projet de tests de fuites mémoires permettant de gérer ce genre 
d'erreur. 


+ © M Renvoyer les exceptions 


Au départ les erreurs peuvent s'adresser à soi. Mais à force d'utiliser son 
Logiciel on redéfinit les exceptions pour l'utilisateur. 


Dans un Code réutilisé il peut être intéressant de renvoyer l'exception vers le 
programme, afin que lui seul gère le message à donner à l'utilisateur. 


Le mot clé "raise" permet de renvoyer une erreur vers un autre programmeur. 


type EStringTooLarge : EOutOfMemory; 
begin 
if length ( chaine ) > 1000 Then raise ( EStringTooLarge ); 
for i:=0 to 20 do 
chaine := chaine + chaine; 
end; 


Voici la même gestion d'erreur que précédemment, mais dans un Code Source 
réutilisé. On anticipe toujours sur le développeur, en réutilisant au mieux 
l'Héritage des erreurs. Il est possible d'utiliser les exceptions de LAZARUS 
existantes pour ce que l'on souhaite rediriger. C'est d'ailleurs recommandé. 


Pratiquer la veille technologique permet de voir si son erreur n'a pas été 
ajoutée, avec une nouvelle version de son kit de développement, ou des 
Composants distribués. 


Ma première application 
CREATIVE COMMON BY SA 


- © Introduction 


Avant de créer sa première Application, sachez avant si c'est utile de créer le 
Logiciel voulu. Vérifiez que ce que vous voulez ne se fait pas déjà. A l'heure 
actuelle, seuls les Logiciels avec une personnalisation accrue sont à créer. 


Dans notre premier exemple, nous allons créer un Logiciel de conversion de 
fichiers PASCAL qui permet de facilement changer ses Composants dans tout 
son projet. 


Un Logiciel doit être créé rapidement. Nous allons rapidement créer une 
interface Homme-Machine. LAZARUS est un outil permettant de créer 
rapidement un Logiciel, grâce à son interface graphique et du Code 
uniquement dédié au développement. 


+ © Les Composants 


Pour créer rapidement son Logiciel, il suffit de placer correctement les 
Composants, après avoir cliqué sur un Composant de la palette de 
Composants. La "Palette de Composants" comporte un ensemble d'onglets 
identiques à des onglets de classeur. Lorsque vous cliquez sur un onglet 
portant un certain nom, un ensemble de Composants classés sous ce nom 
s'affichent. 


{Standard Additional | Common Controls |: Dialogs ! Misc ! Data Controls : Data Access | System 


RON FOeOCNE DEEE 


La palette de Composants 


Vous voyez qu'il est possible de placer un certain nombre de Composants, 
sans limite de présentation. 


Certains Composants ne sont représentés que par le même graphisme de 
même taille que son icône situé dans la palette. Par exemple vous avez dans 
l'onglet "Standard" le premier Composant, qui est un Composant de menu. 
Ces Composants possédant un visuel non changeant n'ont en général aucune 
propriété graphique immédiate. Ce sont des Composants invisibles capables 
de réaliser certaines opérations visuelles ou pas. 


D'autres Composants ajoutent un visuel à votre formulaire. Ce sont des 
Composants visuels. Avant de placer vos Composants visuels, n'oubliez pas 
d'utiliser un Composant "TPanel" pour une présentation soignée. Les 
Composants "TPanel" permettent à vos Composants visuels de se disposer sur 
l'ensemble de l'espace visuel disponible. 


+ © Chercher des Projets 


Ceci est une aide servant à améliorer vos projets grâce à INTERNET. 


LAZARUS possède à son installation un nombre limité de Composants. Il est 
possible de trouver des savoir-faire sur INTERNET. Pour trouver un 
Composant, définissez ce que vous souhaitez, ainsi que les alternatives 
possibles. Ce n'est qu'avec l'expérience que l'on trouve des Composants 
adéquates. 


Sur votre moteur de recherche tapez plutôt des mots anglais comme 
"component", "project" ou "visual" avec "LAZARUS" voire "DELPHI". Puis, 
avec ces mots, tapez votre spécification en anglais. Changez de mots ou de 
domaines, si vous ne trouvez pas. 


Le paquet intégré à LAZARUS onlinepakagemanager permet d'installer des 
composants LAZARUS très facilement. Une fois que vous savez quel 
composant installer, le composant Open Source peut être installé grâce au 
dernier menu des paquets. 


Un site web de Composants LAZARUS s'appelle lazaruscomponents.com. 


+ © Installer des Composants 
manuellement 


Si vous voulez installer une version spécifique de vos Composants, il s'agit de 
ne pas passer par le gestionnaire de paquets en ligne. 


Pour installer des Composants manuellement, décompressez votre archive, 
puis placez-la dans un dossier qui ne bougera pas. 

Avec LAZARUS ouvrez le ou les paquets portant l'extension ".Ipk". 

Compilez et installez. Ne recompilez LAZARUS que si vous n'avez plus de 
Composant à ajouter. 


S'il manque des dépendances cherchez dans le dossier, dans le gestionnaire de 
paquets en ligne, onlinepackagemanager, ou sur Internet les paquets 
manquants. Installez les. 


Si le paquet ne compile toujours pas en fonction d'une unité d'un autre paquet, 
recompilez le paquet de l'unité. Ou bien mettez à jour vos paquets, pour 
certains sur un outil de partage comme SVN. N'oubliez pas d'installer avant 
Tortoise ou Rapid SVN, voire Tortoise HG ou GIT. Si votre version de 
LAZARUS est trop récente, il est possible qu'il faille installer la version 
précédente de LAZARUS. 


Si Vous avez mis à Jour votre paquet et que ça ne compile pas effacez le 
répertoire "lib" des paquets pour recompiler l'ensemble. Le répertoire lib est à 
effacer aussi quand on change d'interface graphique. 


Pour tester vos Composants, avant de compiler LAZARUS, pensez à 
dupliquer l'exécutable LAZARUS. 


+ © L'Exemple 


Nous allons créer cette interface ci-après. Elle s'adapte automatiquement à sa 
fenêtre. Elle peut aussi être grossie par les caractères et images. 


[2010-12 .mp3 | 


channels.dvb 
diapoA.ogg 
essai.mp3 
FleZilla.xmi 
mabaseweb.db 
studio.log 
studio.out 


utilisateurs.sql 


| Tous les fichiers (**)| w | Convertir 


Ma première Application 


+ © HE Une présentation soignée 


Pour commencer notre Interface, dans 
application". 
Puis disposez un Composant "Standard" "TPanel". 


Les Composants de type "TPanel" ou de son type ascendant "TCustomPanel" 
permettent à l'interface d'utiliser le maximum d'espace de travail. 


"Fichier", créez une "Nouvelle 


Notre premier "TPanel” sert à disposer les boutons. En cliquant sur l'onglet 


"Standard" vous pouvez ajouter un panneau, en anglais un "panel". Cliquez 
dessus, puis cliquez sur le formulaire. 


Tapez sur F11 pour afficher l'inspecteur d'Objet. Votre "TPanel" y est 


sélectionné. Cliquez sur la boîte à option de la propriété "Align", et affectez 
"alBottom" à "Align". 


Le deuxième "TPanel" sert à disposer le Composant de sélection du 
répertoire. Ajoutez le "TPanel" de la même manière mais ajoutez-le dans la 
zone vide. 


Tapez sur F11 pour afficher l'"Inspecteur d'Objet”. Votre "TPanel" y est 
sélectionné. Cliquez sur la boîte à option de la propriété "Align", puis affectez 
"alTop" à "Align". 


Le troisième "TPanel" affiche les fichiers à convertir. 
Disposez un deuxième "TPanel" dans la zone où il n'y a pas de "TPanel". 


Votre "TPanel" doit donc s'aplatir sur tout le formulaire. Affectez "alClient" à 
la propiété "Align" de ce "TPanel" afin de disposer d'un maximum d'espace. 
Vous pouvez enlever les bordures "bvRaised" de vos "TPanel".… 


° © MH L'interface Homme Machine 


Ensuite nous allons disposer les Composants de sélection de répertoire et de 
fichiers dans les "TPanel". Ils sont dans l'onglet "Misc". Nous allons aussi 
disposer les boutons. 


Disposez un Composant "TDirectoryEdit" sur le panneau "TPanel" du haut. 
Le Composant "TDirectoryEdit" peut sembler insatisfaisant graphiquement. 
En effet, il n'affiche pas l'arborescence détaillée des répertoires. 


Il est possible d'ancrer le Composant "TDirectoryEdit"” sur la longueur du 
"TPanel". Ou alors choisissez un Composant de sélection de répertoire plus 
abouti. Les Composants fournis avec LAZARUS sont testés sur l'ensemble 
des plates-formes disponibles, en fonction de la "RoadMap" LAZARUS. 
Consultez-la sur www.lazarus-ide.org. Par exemple la "Roadmap"” LAZARUS 
indique en 2012 que des Composants ne marchent pas sur MAC OSX version 
COCOA. 


Disposez un Composant de sélection de fichiers "TFileListBox" dans le 
panneau du milieu. Vous pouvez lui affecter la valeur "alClient" à sa propriété 
"Align". Vos fichiers sont disposés sur l'ensemble de l'interface. Ils sont donc 
visibles pour l'utilisateur. 


Disposez les boutons "TButton" sur le panneau du bas. Les boutons n'ont pas 
besoin d'être alignés, car le texte qui leur est affecté a une longueur connue. Ils 


sont alignés à partir de la gauche. 


Vous pouvez par exemple créer un bouton qui affiche la date du fichier, son 
chemin, etc. 


+ ©O MH Le code 


Nous allons créer un Logiciel de conversion de fichiers LAZARUS. 


Créez un bouton avec le nom "Convertir", dans la propriété "name". Les 
boutons sont dans l'onglet "Standard". Vous voyez que son libellé visuel 
change. Vous avez affecté aussi la propriété "Caption" du Composant, grâce 
au code réservé au développeur. 


Il est nécessaire de relier l'éditeur de répertoire avec la liste de fichiers. 
Double-cliquez sur l'événement "OnChange" du "TDirectoryEdit". Placez-y 


ste Sonirce 
procedure TForml.DirectoryEditChange(Sender: TObject); 
begin 

FileListBox.Directory := DirectoryEdit.Directory ; 


end; 


Double-cliquez sur l'événement "Onclick" du bouton. 


procedure TForm1.ConvertirClick(Sender: TObiject); 
var li_i : Integer ; 


begin 
For Li_i :=0 To FileListBox.Items.Count - 1 do 
Begin 
ConvertitFichier ( DirectoryEdit. Directory + 


DirectorySeparator +  FileListBox.Items.Strings [ lii ], 
FileListBox.Items.Strings [ li_1 ] ); 

End ; 

end; 


procedure TFormi.ConvertitFichier(const FilePath, FileName : 
String); 
var li_i : Integer ; 

Is_Lignes : WideString ; 

Ib_DFM, 


Ib_LFM : Boolean ; 
Ist_Lignes : TStringList ; 
begin 
Ib_DEFM := PosEx ( '.dfm', LowerCase ( FilePath ), length ( 
FilePath ) - 5 ) >= length ( FilePath ) -5 ; 
Ib_LEM := PosEx ( ‘Ifm', LowerCase ( FilePath }), length ( 
FilePath ) - 5 ) >= length ( FilePath ) -5 ; 
Ist_ Lignes := TStringList.Create; 
try 
Ist_Lignes.LoadFromFile ( FilePath ); 
Is_Lignes := Ist_Lignes.Text; 


Application.ProcessMessages: 


// Conversion d'une chaîne du fichier 
Is_Lignes := StringReplace ( Is Lignes, ‘"TADOQuery', 
TZQuery', [rfReplaceAllrflgnoreCase] ); 


if 1b_DFM 
or Ib_LFM Then 
Begin 
End; 
else 
Begin 
End; 


Application.ProcessMessages ; 
Ist_Lignes.Text := 1s_Lignes ; 
Ist_Lignes.SaveToFile (FilePath j; 
finally 
Ist_Lignes.Free; 
end; 
end; 


Vous voyez que cette méthode prend beaucoup de place. Vous pouvez la 
couper, afin de mieux programmer. 


Une fois que vous avez créé la procédure "ConvertitFichier", appuyez 
simultanément sur "Ctrl", "Shift", avec "C". Ainsi, si la source compile, la 
procédure "ConvertitFichier" est renseignée dans votre fiche en fonction de la 
déclaration. 


Au début on teste si l'extension de fichier est "Ifm", "dfm", ou "pas". 


La fonction "ProcessMessages" de TApplication sert pendant les boucles. Elle 
permet à l'environnement de travailler, afin d'afficher la fenêtre. 


La fonction "StringReplace” retourne une chaîne, venant d'une sous-chaîne 
dont le paramètre a éventuellement été remplacée. Elle possède des options, 
comme le remplacement sur toute la chaîne, la distinction ou pas des 
majuscules et minuscules. 


A la fin on affecte le "TStringlist” par sa propriété "Text", puis on remplace le 
fichier en utilisant la procédure "SaveToFile", avec le nom de fichier passé en 
paramètre de la procédure "ConvertitFichier". Faites une copie du projet, 
avant de le convertir par cette moulinette. 


Il n'y a plus qu'à filtrer les fichiers de la liste de fichiers en fonction du résultat 
demandé par l'utilisateur : Convertir tout ou convertir des fichiers "Ifm”, des 
fichiers "dfm" ou des fichiers "pas". 


Placez une TFilterComboBox. Renseignez les types de fichiers voulus en 
"Filter" grâce aux "..", Placez ce genre de filtre : 
Tous les fichiers (*.*)*.*[Fichiers DELPHI et LAZARUS| 
* dpr;*.pas;*.dfm;*.Ifm/Fichiers  projet|*.dpr|Unités DELPHI 
* pas/Propriétés DELPHI[*.dfm|Propriétés LAZARUS/{*.Ifm 


On voit que l'éditeur de propriété permet de gagner du temps. 


"avec cette Source : 
procedure TForm1.FilterComboBoxChange(Sender: TObject); 
begin 

FileListBox.Mask := FilterComboBox.Mask; 
end; 


Vous pouvez maintenant vous amuser à changer les Composants de projets 
LAZARUS, en série. 


Notre interface est prête à être renseignée. Ce qui est visible par l'utilisateur a 
été créé rapidement. Nous n'avons pas eu besoin de tester l'interface. Pour voir 
le comportement de cet exemple, exécutez en appuyant sur "F9" ou en 
cliquant sur le bouton avec le triangle flèche. 

Vous pouvez agrandir votre formulaire ou le diminuer pour tester votre 
interface. 


+ © Conclusion 


Votre application peut maintenant être agrandie, y compris les fontes. La 
propriété ScaleDPI de LAZARUS 1.8 permet cela. Cette variable est à 
changer dans une fiche principale. 


Bien développer 


CREATIVE COMMON BY NC-ND 


+ © Conseils pour les couleurs 


Si vous choisissez une couleur dans l'inspecteur d'objets vous voyez que 
certaines couleurs se répètent. Certaines couleurs ne portent pas un nom de 
couleur, mais celle d'un élément de votre fiche, comme "clWindow" en 
général en blanc, "clWindowText" en général en noir, "clBtn" pour Button en 
général en gris. 


Si votre écran émet de la lumière ces éléments de couleurs vont vite devenir 
intéressants. En effet la lumière fatigue les yeux et l'esprit. Il est préférable sur 
ces écrans d'inverser le contraste. Cela permet d'adapter votre Logiciel à 
l'environnement. 


Allez dans la gestion des thèmes de votre environnement, qui se situe dans les 
paramètres systèmes, puis choisissez le thème à contraste inversé. Vous voyez 
alors l'ensemble des couleurs des éléments en inversé : Le fond devient noir et 
le noir devient blanc. Si vous avez choisi les mauvaises couleurs vous ne 
voyez plus le texte dans vos applications. Il faut alors utiliser les couleurs 
d'éléments pour s'adapter au thème de l'environnement. 


Il est très important pour le programmeur de vérifier si son application 
s'adapte à l'environnement. Tout informaticien digne de ce nom se simplifie 
au maximum la vie, en adaptant son Logiciel à l'environnement. À quoi sert 
une application tout le temps pareille comparée à une application utilisable 
avec tous les thèmes de son environnement ? 


+ © Utiliser l'héritage 


La programmation par objets a permis de créer des Composants qui héritent 
les uns des autres. Ces Composants peuvent se spécialiser afin de créer les 
vôtres. 

Le PASCAL Objet va plus loin. Il est possible d'hériter de la fonte et de la 
couleur de fond du Composant parent. Le Composant "Parent" c'est celui qui 
englobe d'autres Composants dits enfants. Le TPanel, par exemple, peut 
posséder des Composants enfants. 


Ainsi il devient possible de centraliser la taille des fontes dans le panneau 
imbriquant les contrôles. Utilisez au maximum les propriétés "ParentFont" et 
"ParentColor”. 


.- © Caractères accentués 


Si vous observez que les caractères accentués ne sont pas gardés, c'est à cause 
d'un problème de traduction en général. Sinon c'est à cause des caractères 
ANSI ou UTF8. Les caractères ANSI sont différents pour chaque langue. Les 
vieilles applications utilisent l'ANSI de leur propre langue. 


Les caractères UTF8 permettent une lecture avec un alphabet allant de à à z. 
Les caractères UTF8 utilisent 1 octet pour les caractères sans accent ou 
plusieurs octets pour les accents de tout alphabet, qu'il soient français sur 2 
octets ou espagnol sur 2 ou 3 octets. LAZARUS est en UTF8, afin de 
favoriser les applications internationales. Seulement un caractère UTF8 prend 
4 caractères en mémoire. 


Il existe une unité nommée lconvencoding, permettant de transférer des 
applications ANSI vers de l'UTF8. 


Il existe aussi des caractères sur deux octets, les caractères UTF16. Ces 
caractères permettent une lecture internationale pour les pays possédant des 
lettres complexes comme les symboles asiatiques. Pour créer des applications 
UTF16, vérifiez si le "TStringlist” utilise des "WideStrings”. Ce sont des 
chaînes avec des caractères deux fois plus volumineux. 


+ © Gérer les langues 


Afin de gérer les langues, il est important de savoir comment fonctionne la 
traduction sur LAZARUS. Les fiches peuvent être traduites facilement. Par 
contre si vous créez une chaîne, LAZARUS ne sait pas en quelle langue elle 
est. 


Il faut mettre toutes les variables chaînes de la langue de votre projet dans la 
partie interface d'une unité, au sein de l'instruction resourcestring. Il est 
préférable de travailler en anglais afin que d'autres personnes puissent 
participer à votre projet. 


Unit mylang; 
{$mode objfpc}{$H+} 
Interface 


Uses 
Classes, SysUtils; 


resourcestring 
Ing_Quit ='Quit'; 


Implementation 


End. 


Dans "Projet" puis dans les "Options de votre projet", si vous activez dans le 
l'onglet i18n, cela crée un fichier ".po", utilisable à volonté ensuite. Vous avez 
plus d'informations sur le site http://lazarus.developpez.com. 


© Restructurer 


Au bout d'un certain moment vos sources peuvent se détériorer. C'est à dire 
que des méthodes deviennent trop grosses. Le copié-collé est à revoir. 


Revoyez vos fonctions trop longues. Dans ces cas là elles sont peu utilisables. 
Revoyez aussi vos unités mal organisées. Cela arrive souvent quand on débute 
ou lorsqu'on reprend d'autres sources. Un bon programmeur se remet en 
cause. Il faut savoir s'approprier les Sources extérieures. 


Il faut alors créer une nouvelle unité de fonctions. Pour restructurer, utilisez le 
langage procédural ou l'objet pour vous en sortir. On crée une nouvelle unité 
ou un nouveau composant. Mais on se dit alors que ça devient très compliqué 
de centraliser. 


Ça n'est pas si difficile que ça. Cela consiste à vérifier si les variables globales 
ou fonctions restent uniques. Vous séparez donc afin d'unifier les unités 
modifiées. Faites cela unité par unité, de la plus utilisée à la plus gourmande. 
C'est beaucoup plus facile. 


© Mon application est trop lourde 


Si votre application ralentit, revoyez la centralisation avec les composants, 
allégez l'exécutable avec les composants ou des astuces techniques, ou bien 
scrutez ce qui met du temps à s'exécuter avec le débogage. 


Si votre application est trop lourde, ce que permet très facilement le Pascal 
RAD, demandez sur le forum de votre application si tout est réellement 
utilisé, plusieurs fois en anglais. Si des fonctions sont inutilisées il s'agit de 
revoir l'ergonomie de votre logiciel. Formez-vous à l'ergonomie, avec un livre 
de coaching par les solutions. 


Si tout est utilisé vous êtes le champion d'une application finie. Créez un 
deuxième logiciel allégé en mode texte. Le mode texte permet d'être plus 
rapide. 


+ © LAZARUS ne démarre plus 


On préfère en général ajouter des Composants à son outil. L'exécutable 
LAZARUS ne contient qu'un nombre limité de Composants. Chaque ajout de 
Composant nécessite de la mémoire vive. 


° © M Sur LINUX 


Si LAZARUS ne redémarre pas alors allez dans votre "dossier personnel". 
Dans "Affichage" "Montrez les fichiers cachés". Allez dans le dossier 
"Jazarus" puis dans "bin". Effacez "lazarus". 

Si vous ne trouvez pas l'exécutable LAZARUS, réinstallez le paquet GNU 
LINUX "lazarus-ide" ou votre paquet téléchargé. 


° © HÆ Sur WINDOWS 


Effacez le fichier "lazarus.exe". Il est soit dans "Documents and Settings” ou 
"Users", puis dans votre compte utilisateur, puis dans "Local Settings”, 
"Application Data” et "lazarus". 


Ou bien il est dans "c:\lazarus". Dans ce cas recopiez le vieil exécutable 
LAZARUS OLD ou réinstallez LAZARUS. 


© Vérifier les licences 


Après avoir téléchargé les Composants vérifiez l'utilisation des licences. 
Chaque Composant possède des particularités de licence élargissant ou 
restreignant leur utilisation. 

Si vous avez téléchargé des Composants gratuits, voici les différents types de 
licences que vous pouvez trouver : 


Pas de Sources. Vos Composants s'installent sur certains LAZARUS. 
Vous n'avez pas la possibilité de reprendre le projet s'il est abandonné. 
Aucun fichier de licence : En général vous faites ce que vous voulez. 
Vous devez contacter l'auteur pour définir une licence. 

GPL : Cette licence vous oblige à diffuser les Sources de votre Logiciel 
ou descendant, si ceux-ci en sont entièrement dépendants, ceci en 
annonçant l'auteur. 

Creative Common By : Cette licence vous oblige à annoncer l'auteur du 
Composant. 

BSD : Cette licence entièrement Libre vous autorise à distribuer le 
Composant comme vous le voulez. 

Etc. 


Une licence commerciale, pour laquelle vous avez acheté des Composants, 
peut disposer d'un ensemble conséquent de restrictions à lire. 


+ © Compilateur FREE PASCAL 


D Le Compilateur qui a permis de créer LAZARUS est aussi celui utilisé pour 
créer les programmes. La seule différence est qu'il est semi-automatisé. Aussi 
il utilise les librairies LAZARUS. Pour compiler sur LAZARUS et vérifier 
son Code créé, appuyez sur "Ctrl" et "F9" en même temps. Pour exécuter sur 
LAZARUS cliquez sur le bouton Play () ou sur "F9". 


Vous exécutez ligne après ligne votre programme et appuyant sur "F7" ou 
"F8". Ces touches permettent de voir le Code s'exécuter, en regardant vos 
Sources. La touche "F8" passe certaines Sources. 


L'utilisation des touches "F7" et "F8" est fastidieuse. Vous pouvez ajouter un 
voire plusieurs points d'arrêts, en cliquant dans votre "Editeur de Source", 


puis en plaçant un point rouge sur la marge grisée d'une ligne à vérifier. 
Testez. 


+ © Documentation technique 


Si vous commentez vos fonctions et procédures, juste avant leur déclaration, il 
devient facile de créer une documentation. En effet il est possible de créer une 
documentation à partir des commentaires. 


Ouvrez et utilisez un projet avec des commentaires. Créez un répertoire 
"docs" dans le répertoire de votre projet. 


+ © M ESS Model 


Un Logiciel permet de regrouper des informations sur les sources de vos 
Composants ou applications. Voici pour le télécharger : 
http://sourceforge.net/projects/essmodelforlaza 


Vous pouvez créer des schémas UML, c'est à dire des schémas de vos Objets, 
des pages web de documentation automatiquement créées avec les 
commentaires. Il n'y a plus qu'à créer votre site web statique, grâce à un client 
FTP comme FILEZILLA. 


L'Objet 


CREATIVE COMMON BY SA 


+ © Introduction 


La Programmation Orientée Objets permet, avec LAZARUS, de réaliser vos 
propres Composants, votre savoir-faire. Avec l'Objet et les Composants, elle 
permet aussi de réaliser des Logiciels complexes. Ce chapitre et les deux 
chapitres suivants sont complémentaires. Ils doivent être bien compris afin de 
surpasser les capacités du programmeur. 


Dans ce chapitre nous allons définir ce qu'est l'Objet. Cela va permettre de 
mieux comprendre LAZARUS, donc de sublimer cet outil par l'automatisation 
DRA. LAZARUS est un outil de Développement Rapide d'Applications, 
aboutissement de l'utilisation de la programmation orientée Objets. 


Si vous ne connaissez pas l'Objet vos Composants sont mal faits. Il existe des 
règles simples et des astuces permettant de réaliser vos Composants. 


Nous allons dans ce chapitre vous parler simplement de l'Objet. 

Étoffez vos connaissances avec des livres sur l'analyse Objet, analyse proche 
de l'humain. Elle nécessite du travail, de la mémoire, de la prise de notes et de 
la technique. Nous parlons succinctement des relations en Objet dans le 
chapitre sur les Logiciels centralisés. 


Chaque Compilateur possède des spécificités ou améliorations, pour faciliter 
le travail du développeur. Nous vous les expliquons. 


+ © Les Objets 


Un Objet est une entité interagissant avec son environnement. Par exemple 
votre "clavier" d'ordinateur est un Objet. Ce "clavier" possède des "touches" 


qui peuvent aussi être des Objets "touche", si l'Objet touche est complexe 
dans notre application. 


| 
| 


— 
0.1 


Vous voyez qu'il est possible de définir un Objet "Touche" ou un Objet 
"Touches". Préférez l'unicité en mettant en tableau votre Objet "Touche" au 


sein de votre Objet "Clavier". Vous créez un attribut au sein de votre Objet 
"Touche". 


type 
TTouche = class 
LTouche : String; 
end; 
TClavier = class 


LTouches : Array [0..6,0..13] of TTouche; 
end; 


.- © Une classe 


Avec la notion de programmation par Objets, une méthode de programmation 
proche de l'humain, il convient d'énoncer la notion de classe. 


Lors du tout premier exemple on avait déclaré une classe dans le premier 
chapitre, en créant un formulaire hérité de la classe "TForm". Cette notion de 
classe est présente dans le FREE PASCAL. Elle a été ajoutée au PASCAL 
standard. 


Ce que l'on a pu nommer jusqu'à présent Objet est, pour FREE PASCAL, une 
classe d'Objet. Il s'agit donc d'un type FREE PASCAL. L'Objet FREE 
PASCAL est une instance de classe, plus simplement un exemplaire d'une 
classe, son utilisation en mémoire avec la possibilité d'être dupliquée. 


On peut remarquer que FREE PASCAL définit une classe comme un Objet 
(type "classe") ou comme un enregistrement (type "record"). L'enregistrement 
record ne permet que de définir des méthodes. La classe que vous voyez avant 
pourrait donc être redéfinie comme type "record". La classe est l'Objet 
analytique pouvant agir autour de lui. 


Une classe accepte l'instruction "with", Vous pouvez utiliser "with" en prenant 
garde, toutefois, aux variables ou méthodes identiques, dans des entités 
différentes. 


+ © Une Instance d'Objet 


NS 


UML signifie Langage de Modélisation Unifié. C'est une boîte à outils de 
graphiques, incontournable en Programmation Objet. 

Une instance d'Objet en UML est un Objet en mémoire en FREE PASCAL. 
L'Objet en UML est une classe d'Objet en FREE PASCAL. 


Le PASCAL Objet permet de créer des Instances d'Objets. Une Instance 
d'Objet c'est un Objet mis dans la mémoire de l'ordinateur, à l'exécution. Une 
Instance d'Objet peut être dupliquée. Elle est aussi personnalisée grâce à ses 
variables. 


Si votre Classe d'Objet et ses Classes parentes ne contiennent aucune variable, 
il est nécessaire de se poser la question de leur utilité. Puis-je gagner du temps 
en créant une unité de fonctions à la place ? 


Vous créez votre Objet, qui est instancié une ou n fois en exécution. Par 
exemple les formulaires prennent beaucoup de place en mémoire donc on les 
instancie en général une fois. 


Les variables simples de votre Objet sont dupliquées et initialisées à zéro, 
pour chaque Instance créée. 


+ © M Les attributs et propriétés 


Deux Objets "Clavier" peuvent être faits de la même manière, avec une 
couleur différente. Ce sont toujours deux Objets "Clavier" avec un attribut 
différent. Un attribut peut être une couleur, un nombre, du texte, ou bien un 
autre Objet. 


Seulement en FREE PASCAL les attributs, nommés variables, peuvent être 
enregistrés dans l'EDI comme des propriétés. Ces variables sont alors sauvées 
dans le fichier "Ifm" de l'Objet "TForm", visible en exécution, ou dans le 
"TDataModule" invisible. 


Dès que vous modifiez un formulaire LAZARUS vous utilisez l'Objet. 
Seulement ces Objets n'ont pas besoin de l'EDI pour charger leurs propriétés à 
l'exécution. Une partie du Code Source de développement est exécuté afin de 
renseigner vos Objets. 


Au début du livre un formulaire possédait des propriétés permettant 


d'automatiser facilement le développement. Les propriétés manipulables dans 
l''Inspecteur d'Objets” sont du Code Source servant uniquement au 
développement. Elles vous ont permis de gagner beaucoup de temps dans la 
création de votre premier Logiciel LAZARUS. 


Les développeurs LAZARUS ont soigneusement séparé les unités d'édition de 
propriétés, vous permettant de renseigner vos formulaires. Les Objets 
modifiant les propriétés dans l'"Inspecteur d'Objets" ne sont pas inclus dans 
votre exécutable. Lorsque vous concevrez votre premier Composant, il faudra 
aussi séparer le Code Source de développement du Code Source exécuté. 

Vous ne devez jamais lier dans vos projets directement vers une unité 
d'enregistrement de Composants, puisqu'elle ne sert qu'à LAZARUS. C'est 


pour cette raison que des unités, spécifiques à l'enregistrement des 
Composants, sont à part des unités de Composants. 
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Le Code Source exécuté peut être séparé de la conception 


° © M Unattribut dans LAZARUS 


Dans les classes LAZARUS, les attributs se déclarent avant les méthodes. 
Une méthode est une fonction ou procédure au sein d'une classe. 


type 
TForml1 = class ( TForm ) 
MonBouton : TButton ; 
public 


constructor Create ( AOwner : TComponent ) ; 
end; 


L'attribut "MonBouton" crée un Objet bouton. L'attribut du type bouton sert à 
créer un bouton, dans le formulaire TForml1. 


+ © M Une propriété dans LAZARUS 


type 
TForm1 = class ( TForm ) 
MonBouton : TButton ; 
procedure OnClickMonBouton ( Sender : TObiject ) : 
private 
FClickBouton : Boolean ; 
public 
constructor Create ( AOwner : TComponent ) ; 
property ClickBouton : Boolean read FClickBouton 
write FClickBouton default false; 
end; 


L'événement "OnClick" du bouton "MonBouton" fait appel à la méthode 
"OnClickMonBouton". 


L'attribut privé "FClickBouton" ne peut être lu dans son descendant. Ainsi on 
accède à cet attribut par sa propriété publique. Ainsi on peut transformer la 
fiche en Composant plus facilement. 


La propriété permet d'accéder aux attributs directement ou indirectement. 
Vous pourriez créer dans la propriété une fonction appelée getter, et une 
procédure appelée setter, permettant de préparer l'attribut avant de l'utiliser. 


La propriété "ClickBouton" permet ici de ne pas avoir à définir de getter et 
setter afin d'accéder au clique de bouton. Ainsi un getter ou setter peuvent être 
ajoutés ensuite à la propriété. Le Code Source n'a que très peu changé. 


On vous montre les différentes options de déclaration de propriétés. 
FClickBouton doit être initialisé à "false", dans le Constructeur de la fiche. 
En effet, la déclaration "property" ne permet pas d'initialiser de valeur par 


défaut. Une déclaration dans une classe n'agit pas. 


+ © M Les méthodes et événements 


Le clavier agit. Il possède alors des méthodes influençant ses attributs ou 
d'autres Objets. On pourrait créer une méthode d'appui sur une touche 
quelconque. La méthode est une procédure ou une fonction centralisée dans 
un Objet. Une méthode modifie les attributs ou variables du programme. 


Seulement en FREE PASCAL ïl y a plus adaptable que la méthode. 
L'événement permet de renseigner rapidement tout Objet. Aïnsi on ne crée pas 
l'Objet "Clavier" pour récupérer les événements du clavier. 


LAZARUS va facilement propager des événements dans le formulaire de 
votre projet, puis dans chaque Objet de formulaire. Chaque Objet possède 
alors une méthode captant le clavier. Vous pouvez renseigner les différents 
événements clavier dans l'"Inspecteur d'Objets". Ces événements sont 
accessibles aussi, au sein des différents Objets, grâce à des méthodes. 


L'événement consiste à transformer une méthode en variable, pour pouvoir, 
comme les propriétés, transférer facilement un événement à un autre Objet. 


+ © Les comportements de l'Objet 


L'Objet est, contrairement aux langages procéduraux, plus proche de l'homme 
que de la machine. Il permet de réaliser des systèmes humains plus 
facilement. L'Objet étant plus proche des représentations humaines :il 
complexifie au minimum le travail de la machine en l'organisant en Objets. 
Un Objet possède trois propriétés fondamentales : 

e L'Héritage 

® L'Encapsulation 

® Le Polymorphisme 


L'Objet peut être représenté schématiquement grâce à une boîte à outils 
nommée UML. Il existe des Logiciels Libres permettant de créer des schémas 
Objets UML, comme STAR UML ou ou un moteur BPM. 


© L'Héritage 


Les formulaires LAZARUS utilisent l'Objet. Vous voyez une définition d'un 
type Objet, dans chacune des unités de votre formulaire. Vous avez donc 
utilisé de l'Objet sans le savoir. 


Un type Objet se déclare de cette manière : 


type 
TForm1 = class ( TForm ) 
end; 


On crée ici une nouvelle classe qui hérite de la classe "TForm". Vous pouvez 
appuyer sur "Ctrl" ,puis cliquer sur "TForm", pour aller sur la déclaration du 
type "TForm". Vous ne voyez alors que des propriétés, car "TForm" hérite lui 
aussi de "TCustomForm", etc. 


Notre formulaire se crée donc grâce à l'Objet "TForm". Cet Objet possède la 
particularité de gérer un fichier "fm", contenant les Objets visibles dans la 
conception du formulaire. 


Votre formulaire est compris par LAZARUS par le procédé de l'Héritage. Il 
n'utilise que rarement toutes les possibilités du type formulaire surchargé. 


Vous pourriez donc utiliser un autre type descendant de "TForm" pour votre 
formulaire. Cependant tout Composant LAZARUS est hérité du Composant le 
plus proche de son résultat demandé. On peut donc hériter votre formulaire du 
Composant "TCustomForm" si certaines propriétés gênent. Remontez jusqu'à 
"TCustomForm" en cliquant sur le type "TForm" avec Ctrl. 


Vous pouvez constater que ces deux Objets ne diffèrent que par la visibilité de 
leurs propriétés, car "TForm" hérite de "TCustomForm". 

Vous voyez des déclarations de variables dans l'Objet "TForm". Certaines 
variables, comme les Objets, sont mises en mémoire par le Constructeur du 
formulaire. 


Vous ne voyez en général pas de Constructeur dans un formulaire descendant 
de "TForm". En effet LAZARUS met automatiquement en mémoire vos 
variables de Composants, déclarées grâce à chaque fichier ".Ifm" créé. Ce 
fichier "fm", c'est votre formulaire visuellement modifiable, grâce à la souris 


et à l'"Inspecteur d'Objets”. 


+ © La surcharge 


La surcharge consiste dans l'Héritage à modifier le comportement d'une 
méthode surchargée. Par exemple, on peut hériter de l'Objet "TForm", afin de 
surcharger la méthode "DoClose”". Si, dans un Composant héritant de 
"TForm", cette méthode surchargée contient le comportement spécifique de 
toutes les fiches qu'on utilise, on peut automatiser la fermeture de ses 
formulaires. Il y a moins de Code puisque la fermeture est dans un seul Objet. 


Dans le paquet manframes du projt MAN FRAMES, la classe 
TF_CustomFrameWork contient une méthode DoClose permettant 
notamment de libérer la fiche, afin de gagner en mémoire. À la fin de la 
méthode vous voyez une réaffectation des valeurs initiales au cas où 
l'utilisateur veut personnaliser l'utilisation du formulaire, afin de récupérer des 
valeurs. 


Dans le paquet extcomponents de EXTENDED, il existe une fenêtre 
principale à hériter nommée TF_FormMainlni, pour laquelle la méthode 
DoClose est utilisée afin de fermer la connexion de l'application. 


+ ©O M Le mot clé "virtual" 


Par défaut toute méthode déclarée ne peut être surchargée. Une méthode est 
donc par défaut statique car il est impossible de la surcharger. En effet une 
méthode statique ne peut qu'être éludée, pas surchargée. 


Pour qu'une méthode puisse être modifiée par ses héritières, ajoutez le mot clé 
"virtual". Si vous scrutez la toute première déclaration de la méthode DoClose 


NS 2 


an PEUT au J a aratlON 
procedure DoClose(var CloseAction: TCloseAction); dynamic; 


Il est préférable d'utiliser la déclaration "virtual". En effet cette déclaration 
favorise la vitesse, plus importante que la taille en mémoire avec "dynamic". 


Il existe d'autres moyens pour gagner de l'espace. Nous vous les citons dans le 
chapitre sur les Composants. 


+ © M Le mot clé ‘override" 


Pour surcharger une méthode virtuelle, ajoutez cette Source dans une classe 
descendante. Vous pouvez par exemple ajouter ce Code Source dans tout 


procedure DoClose(var CloseAction: TCloseAction); override; 


Cette déclaration dans le formulaire est identique à l'affectation de 
l'événement "OnClose" de votre formulaire, hérité de "TForm". 


Seulement créer cette méthode permet de créer un Composant personnalisé, 
hérité de "TForm". 


begin 
inherited DoClose(CloseAction); 
end; 


Ainsi, lorsque tout Objet Propriétaire de "Doclose" appelle cette méthode, on 
appelle d'abord la méthode "Doclose" du Composant parent, au dessus de 
toutes, qui peut éventuellement appeler les méthodes ascendantes "DoClose”, 


PARLE 


par le mot clé "inherited". 


Lorsque vous surchargez votre méthode, choisissez toujours d'utiliser le mot 
clé "inherited". Sinon votre programme boucle à l'infini. 


Vous pourriez créer un Composant hérité de "TForm", avec vos options de 
fermeture de formulaires. Ainsi du Code Source ne serait plus dupliqué. 


+ © L'Encapsulation 


Nous venons de voir, par la surcharge, le procédé de l'Encapsulation. 
L'Encapsulation permet de cacher des comportements d'un Objet, afin d'en 
créer un nouveau. 


L'Encapsulation existe déjà dans les langages procéduraux. Vous pouvez déjà 
réutiliser une fonction ou procédure, en affectant le même nom à la nouvelle 
fonction ou procédure, dans une nouvelle unité, qui réutilise la fonction ou 
procédure. Seulement vous utilisez le nom de l'unité pour distinguer les deux 
fonctions ou procédures. 


On pourrait ainsi appeler la fonction ou procédure imbriquée comme 
l'original. On pourrait donc se tromper facilement de fonction ou procédure 
identique, en éludant une unité. L'Encapsulation en PASCAL non Objet est 
donc approximative. 

En effet on évite de créer les mêmes noms de fonctions ou procédures, car 
cela crée des conflits sans forcément que l'on s'en aperçoive. 


Au travers des unités et autres librairies, l'Encapsulation est améliorée en 
Objet. 


L'intérêt de l'Encapsulation est subtil et humain. Si vous créez un descendant 
d'un bouton en surchargeant la méthode "Click", afin de créer un événement 
centralisé, et que vous utilisez ce bouton dans votre formulaire, vous vous 
apercevez que vous ne pourrez jamais appeler la méthode "Click" de ses 
ancêtres. 


Autrement dit l'Encapsulation permet de modifier légèrement le 
comportement d'un Objet afin d'en créer un nouveau, répondant mieux à ce 
que l'on cherche. On peut hériter du Composant au-dessus, si l'on veut utiliser 
la nouvelle gestion, éludant l'ancienne, par le nouveau Composant. 


Autrement dit, on s'aperçoit ici que la programmation Objet demande plus de 
mémoire que la programmation procédurale. En effet il est possible d'éluder le 
Code Source de la méthode encapsulée. 


Cependant l'Objet permet de gagner du temps dans le développement, grâce à 
l'automatisation des systèmes humains, puis informatiques. 

L'Objet permet aussi de maintenir plus facilement le Code Source créé. Avec 
LAZARUS, tout Objet Composant Open Source d'un formulaire est 
consultable, par simple clic de souris, grâce à l'inspecteur d'Objet. 


Une variable peut ne pas être être héritée, mais peut être de nouveau déclarée. 
Cependant l'ancienne variable prend alors la place réservée à son pointeur à 
l'exécution. 


Il est même possible que vous ne puissiez empêcher le Constructeur de la 
variable de mettre en mémoire ses autres variables, s'il s'agit d'une classe. 


Quand trop de variables fantômes sont présentes dans l'ancien Composant 
hérité, demandez-vous s'il est utile de créer un nouveau Composant, héritant 
d'un des Composants ascendants. En effet les variables fantômes sont en 
mémoire, en partie, dans chaque instance de classe. 


+ © M La déclaration "private" 


Une variable privée n'est accessible dans aucun descendant. On ne peut 


accéder à une méthode, ou une variable "private", que dans l'Objet la 
possédant. Une méthode "private" ne peut pas être surchargée. 


4 : " M. 


TCustomForm = class(TScrollingWinControl) 
private 
FActiveControl: TWinControl; 
procedure SetActiveControl(AWinControl: TWinControl); 
published 
property ActiveControl: TWinControl read FActiveControl 
write SetActiveControl; 
end; 


Vous voyez, dans les Sources de LAZARUS, que beaucoup de variables sont 
déclarées en privées. Elles sont tout de même accessibles dans l' "Inspecteur 
d'Objets", sous un autre nom. 


Souvent, il suffit d'enlever la première lettre de la variable, pour la retrouver 
dans l'"Inspecteur d'Objets”. Des déclarations privées sont utilisées dans les 
propriétés publiées de vos Composants, grâce aux getters et setters, eux aussi 
privés, afin d'être visibles dans l'"Inspecteur d'Objets”. 


La déclaration "private" permet de regrouper les variables, avec les "getters" 
et les "setters” des propriétés créées. Un "setter" est une affectation d'une 
variable, contenant généralement son nom, initialisant une partie du 
Composant. Le "getter"” fait de même, en lisant cette fois la variable privée, 


contenue dans son libellé. 


Ainsi le programmeur ne se trompe pas lorsqu'il réutilise la variable. Il utilise 
la propriété déclarée par "property", définissant d'éventuels "getters" et 
"setters”, permettant d'initialiser le Composant en affectant la variable. Vous 
voyez des propriétés dans les Composants LAZARUS. Ces propriétés sont en 
général visibles dans "l'Inspecteur d'objets". 


+ © M La déclaration "protected" 


Une méthode "protected" ne peut être surchargée que dans l'unité de l'Objet et 
dans les Objets hérités. Surcharger un Composant permet donc d'accéder aux 
méthodes ou variables protégées, afin de modifier le comportement d'un 
Composant. 


On met dans la zone "protected" les méthodes de fonctionnement du 
Composant, pouvant être surchargées, afin d'être modifiées dans un Héritage. 
Si on ne sait pas comment mettre une méthode dans la zone "private" ou 
"protected" 1l est préférable de placer sa méthode dans la zone "protected". En 
effet la réutilisabilité d'un Composant est essentiellement due au nombre 
suffisants de méthodes protégées. 


Le type "TForml" peut accéder aux méthodes et variables "protected" de 
"TForm" et de ses ascendants. Par contre ce type ne peut pas accéder aux 
méthodes et variables protégées des Composants non hérités, en dehors de son 
unité. 


+ © M La déclaration "public" 


Une méthode "public" peut être appelée dans tout le Logiciel qui l'utilise. Une 
variable et une méthode publiques sont toujours accessibles. Ainsi un 
Constructeur est toujours dans la zone "public" de sa classe. 


Si vous ne savez pas mettre une méthode en "public" ou en “protected”, 
cherchez si votre méthode est utilisée plutôt par le développeur utilisateur en 
"public", que par le développeur de Composants en "protected". Le 
développeur de Composants modifie les facultés de votre Composant. 


+ © M La déclaration "published" 


Une méthode "published" peut être appelée dans tout le Logiciel qui l'utilise. 
Une propriété et une méthode publiées sont toujours accessibles. 


Vous voyez dans vos Composants que les propriétés "published" sont visibles 
dans l'inspecteur d'Objet de LAZARUS. La déclaration "published", et les 
propriétés  dénommées par "property", permettent d'améliorer le 
Polymorphisme du PASCAL Objet. 


Ce procédé permet de manipuler les propriétés et méthodes "published", sans 
avoir à connaître leur propriétaire. Vous pouvez réaliser des procédés de 
lecture indépendants du type d'Objet, grâce à l'unité "PropEdits”. 


Ainsi une méthode publiée peut être appelée indépendamment de la classe 
Objet qui l'utilise. Une propriété publiée est sauvegardée dans le formulaire. 
Cette propriété est accessible indépendamment de la classe Objet qui l'utilise. 


Voici comment récupérer une méthode publiée sans connaître sa classe : 
1/ Récupère une propriété d'Objet 
1! aComp_ComponentToSet : Composant cible 
//as_ Name  : Propriété cible 
I! a_ValueToSet : Valeur à affecter 
function fmet_getComponentMethodProperty ( const 
aComp_Component : TComponent ; const as_Name : String ) : 
TMethod ; 
Begin 
if assigned ( GetProplnfo ( aComp_Component, as_ Name )) 
and ProplsType  (aComp_Component, as_Name , tkMethod) 
then Result := GetMethodProp ( aComp_Component, as_Name 
); 
End ; 


Cette méthode permet de récupérer toute méthode publiée "as_Name" de tout 
Composant. Il suffit ensuite de forcer le type de votre événement. 


{$mode DELPHI} // Directive de compilation permettant 
d'enlever les de pointeurs, Elle est à placer au début de 
l'unité 


Var MonClick : TNotifyEvent ; 


Begin 
MonClick :=TNotifyEvent ( fmet_getComponentMethodProperty 
( AComponent , 'OnClick' )); 
if assigned ( MonClick ) Then 
MonClick ( Acomponent ); 
End; 


Cette Source permet d'exécuter tout événement "OnClick" de tout Composant, 
s'il est publié. 


Dans l'inspecteur d'Objet vous pouvez voir aussi des événements. Les 
événements sont un appel vers une méthode, grâce à une variable de méthode. 


Le type de la variable méthode permet d'affecter des paramètres à une 
méthode. 


Nous avons déjà utilisé les événements dans un chapitre précédent. 
Un événement est une définition en variable d'une méthode. Il est cependant 
possible d'accéder à une méthode publiée, sans avoir à utiliser l'événement, en 


utilisant le type "TMethod". Ce type permet d'accéder à une méthode publiée 
dans un Composant. 


{$Mode DELPHI} 

var Imet_MethodeDistribueeSearch: TMethod; 

Begin 

Imet_MethodeDistribueeSearch.Data := Self ; 
Imet_MethodeDistribueeSearch.Code := 
MethodAddress(MaMethodePubliee") ; 

( Imet_MethodeDistribueeSearch as MonTypeMethod ) ( 
monparametre ) ; 
End; 


a | 


TMaMethode procedure(const 
onparaete TopePar ete) 


of object; 


Le fait de noter "of object" indique que l'événement est dans un objet, ceci 


afin de mieux l'éditer. Si vous éludez le "of object" vous pouvez utiliser 


votre déclaration pour affecter directement une procédure ou fonction à une 
variable, ou même une constante. 


TOnGetLibraryName = procedure(var libname: string); 


const 
OnGetLibraryName: TOnGetLibrary Name = nil; 


initialization 
OnGetLibraryName:= TOnGetLibraryName( p_setLibrary); 
end. 


Les événements automatisent la gestion de méthodes publiées. Aïnsi un 
événement devient une adresse manipulable grâce aux types d'événements, 
décrits ci-dessus. 
ILest ainsi possible de créer ceci dans un Objet : 
Property OnMaMethode : TMaMethode read FMaMethode 
write FMaMethode ; 


_ILest nécessaire de placer ceci dans le constructeur de l'Objet : 
FMaMethode:= nil ; 


Vous avez une utilisation des méthodes publiées dans les projets MAN 
FRAMES et XML FRAMES, dans la fenêtre principale, liée à 
fonctions_Objets*. N'hésitez pas à faire une recherche dans le répertoire du 
paquet, afin de trouver l'utilisation de la méthode publiée. 


+ © MH La déclaration "published" 


Lorsqu'on publie une propriété dans un Composant référencé celle-ci se 
retrouve dans l'inspecteur d'Objet. 


Il est préférable de créer une propriété au plus proche de l'Objet, en surcharge, 
voire en participation Libre, si la modification est utile pour la communauté. 


21: 2 ON 


type 
TMyButton = class ( TSpeedButton ) 
private 
FClickBouton : Boolean ; 
function getClickBouton:Boolean; 
public 
procedure Click ; override ; 
published 
property ClickButton : Boolean read getClickBouton 


write FClickBouton default false ; 
property Glyph stored false ; 
end; 


La propriété "ClickButton" permet de savoir si le bouton a été cliqué. 
Le getter getClickBouton permet de réinitialiser FClickBouton à la lecture du 
clique. 


On empêche ici d'enregistrer l'image du bouton, en surchargeant la déclaration 
publiée du "TSpeedButton". Cela permet d'empêcher d'enregistrer dans 
chaque fiche l'image qu'on aurait chargée. Nous vous expliquons cette 
optimisation dans le chapitre sur la création d'un Composant. 


L'option "stored" à "false" n'enregistre pas la propriété dans l'"Inspecteur 
d'Objets", donc dans l'exécutable. "stored", qui est à "true" par défaut, permet 
l'enregistrement dans l'"Inspecteur d'Objets", si votre Composant est dans la 
palette des Composants. 


+ © M Les Constructeurs et Destructeurs 


Les variables simples, comme on l'a vu, se libèrent automatiquement. FREE 
PASCAL ne libère pas automatiquement certaines variables, notamment les 
Classes d'Objets utilisées. Il faut soit détruire soi-même soit utiliser des 
Composants se libérant correctement. 


Un descendant de TComponent détruit automatiquement les Objets de type 
TComponent, qui lui ont été affectés. Donc, si vous utilisez un descendant de 
TComponent dans votre classe, il suffit, pour le détruire automatiquement, 
d'affecter le Propriétaire du Composant, comme étant votre classe d'Objet. 


Tout descendant de TComponent peut être enregistré dans l'"Inspecteur 
d'Objets”. 


Pour les autres classes d'Objet, 1l est nécessaire d'utiliser les Constructeurs et 
Destructeurs, pour d'abord les initialiser, enfin les libérer. 


Voici le de C ke ; 
Interface 
uses Classes ; 


TReadText = class(TComponent) 


MonFichierTexte : TStringlist; 

public 
constructor Create(TheOwner : TComponent); 
destructor Destroy; 

end ; 


implementation 


constructor TReadText.Create(TheOwner : TComponent); 
begin 
Inherited Create(TheOwner); 
MonFichierTexte := nil; 
end ; 
destructor TReadText.Destroy; 
begin 
Inherited Create(TheOwner); 
MonFichierTexte.Free; 
end; 


Tout Objet défini dans une classe doit être initialisé à "nil". Le Constructeur 
initialise le "TStringList". Il peut alors être créé dès qu'on l'utilise, grâce à une 
méthode centralisée. 


Le Destructeur du Composant libère les Objets mis en mémoire. Ainsi la 
méthode statique "Free", de la classe "TObject", vérifie si la variable est à 
"nil". Puis, si elle n'est pas à “nil”, elle appelle le Destructeur de l'Objet de 
type "TStringList”. 


Vous avez en général, dans beaucoup de Composants LAZARUS, un 
constructeur et un destructeur surchargés. 


+ © Le Polymorphisme 


Le terme Polymorphisme est certainement le plus redouté. Pour le 
comprendre, voici la sémantique du mot : "poly" signifie plusieurs et 
"morphisme" signifie forme. Le Polymorphisme traite de la capacité de l'Objet 
à posséder plusieurs formes. 


Cette capacité dérive directement du principe d'Héritage, vu précédemment. 
En effet, un Objet hérite des champs et méthodes de ses ancêtres. On peut 
ainsi redéfinir une méthode, afin de la réécrire ou de la compléter. 


On considère un Objet Véhicule et ses descendants Bateau, Avion, Voiture. 
Ces Objets possèdent tous une méthode Avancer, le système appelle la 
fonction Avancer spécifique, suivant que le véhicule est un Bateau, un Avion 
ou bien une Voiture. Aïnsi la méthode avancer sera unique, pour 3 Objets 
différents. 


Le concept de Polymorphisme permet de choisir, en fonction des besoins, 
quelle méthode ancêtre appeler. Le comportement d'un Objet polymorphe 
devient donc modifiable à volonté. 


Le Polymorphisme est donc la capacité du système à choisir dynamiquement 
la méthode de l'Objet en cours. 


Attention ! 


Le concept de Polymorphisme en orienté Objet ne doit pas être 
confondu avec celui d'Héritage multiple en Objet pur. L'Héritage 


multiple est interdit par le FREE PASCAL. II permet à un Objet 
d'hériter des champs et méthodes de plusieurs Objets à la fois. Le 
Polymorphisme permet de modifier le comportement d'un Objet et 
celui de ses descendants au cours de l'exécution. 


L'Héritage multiple possède lui aussi ses défauts. Il est encore plus lourd en 
mémoire que le Polymorphisme en orienté Objet. L'Héritage multiple 
nécessite plus de rigueur en amont. 


° © MH L'Abstraction 


L'Abstraction ne sert, en FREE PASCAL, qu'à centraliser plusieurs Objets, en 
héritant d'un Objet abstrait donc pas utilisable. Cet Objet abstrait possède en 
fait des méthodes dites "abstraites" ou "abstract", non implémentées dans 


l'Objet abstrait. 


_Voici à quoi l'Abstraction ressemble dans une classe d'Objet : 


procedure Nager; abstract; 


Cette déclaration est la seule à ne pas demander d'implémentation. Elle crée 
une erreur malgré tout, à l'exécution, si son descendant n'implémente pas la 
méthode "Nager. 


Ainsi l'Objet abstrait qui nage n'a pas besoin de savoir comment il nage. Les 
différents descendants nagent en fonction du type classe créé. Une classe 
"Poisson" nage en oscillations horizontale. Une classe "Humain" nage en 
brasse, en crawle, en papillon, etc. 


On crée donc dans la classe Humain des méthodes secondaires. On crée dans 
une unité de fonctions les différentes méthodes à réutiliser. 


Il reste à définir comment on choisit le type de nage en fonction de l'Objet 
créé. On peut définir le type de nage grâce à une énumération en paramètre. 


+ © M Le type "interface" 


Le type "interface" est le Polymorphisme en FREE PASCAL en son essence. 


Il est impossible d'hériter de deux classes voire plus. Utilisez le type 
"interface" pour remédier à ce problème. Une classe FREE PASCAL hérite 
d'une classe, avec, éventuellement, un ensemble d'interfaces. 


Le type "interface" permet de créer des Objets polymorphes. Il peut s'ajouter à 
un Héritage. On crée le type interface comme si on crée une classe. Cependant 


il n'est possible que d'y ajouter des méthodes abstraites. 


Nous parlons du type "interface" dans le chapitre sur les Composants. 
+ © M Polymorphe avec les propriétés 
publiées 


Nous avons vu, précédemment, qu'il est possible d'appeler n'importe quel 
événement "Onclick", de n'importe quel Composant. 


Le type classe ou Objet "TForm”, c'est un Composant particulier. Le 
Composant et Objet "TForm" permettent de créer d'autres Objets Composants, 
à l'aide d'un fichier avec l'extension ".Ifm". Vous pouvez donc changer de 
Composants dans vos formulaires, en changeant le type de votre Composant 
Source vers votre type destination. Changez alors le type de votre Composant, 
à la fois dans le fichier ".pas" de votre ficher, puis dans le fichier ".Ifm". 


Tout d'abord allez sur le formulaire à transformer. 
Ajoutez un Composant "TLabel". Redimensionnez-le. 


Allez sur la déclaration classe de sa formulaire dans le fichier ".pas”. 
Changez le type de son Composant vers le nouveau type de Composant, sans 
vous tromper. Vous pouvez par exemple lui affecter le type "TButton"”. 


Allez sur le formulaire visuel et cliquez sur le bouton droit dessus. Choisissez 
"Afficher le Source". 

Retrouvez votre Composant en faisant une recherche. Puis changez le type par 
le même type "TButton”. 


Fermez et rouvrez le formulaire. Des propriétés n'existent plus. LAZARUS 
demande de les effacer. 


Votre nouveau Composant "TButton" a alors remplacé l'ancien, avec les 
propriétés identiques de ce dernier. 

C'est la nomenclature LAZARUS qui à permis d'adapter les propriétés 
anciennes, vers le nouveau Composant. 


Autrement dit, avant de créer une nouvelle propriété LAZARUS, il est 
nécessaire de connaître les propriétés standards de tout Objet LAZARUS. Une 
propriété LAZARUS est en anglais. 


Les types "interface" ne permettent pas de déclarer de véritables Objets. Ils ne 
font que centraliser la déclaration de méthodes. Les unités de fonctions 
permettent de centraliser le Code pour le type "interface". 


La déclaration "published" et les propriétés permettent d'accéder à d'autres 
Composants devenus publics et publiés, sans avoir à connaître leur type 
"class" ou "interface". 


La déclaration "published" et les unités de fonctions résolvent partiellement le 
Polymorphisme. Elles permettent cependant une hiérarchisation de vos 
Sources, grâce aux paquets. 


+ © Les propriétés 


FREE PASCAL possède une syntaxe permettant de créer des Composants, 
qui sont des Objets avec des propriétés publiées. Les propriétés permettent, si 
elles sont correctement créées, de mieux gérer le Polymorphisme. Les 
propriétés publiées permettent la rapidité de conception, en étant présentes 
dans l'"Inspecteur d'Objets”. 


Il ne faut pas être créatif pour nommer ses propriétés. Reprenez ce qui existe 
déjà au sein de LAZARUS, afin de mieux gérer le Polymorphisme. Une 
propriété doit être nommée du même nom que les propriétés de même nature. 
Il est donc nécessaire de connaître les noms des propriétés des Composants de 
même nature, afin de créer des propriétés identiques. 


+ © L'UML ou le BPM pour 
programmer en Objets 


Des outils UML ou BPM Libres existent pour automatiser la création de vos 
Logiciels orientés Objets. 

UML en anglais signifie Unified Modeling Language, pour Langage de 
Modélisation Unifié. Ainsi tout outil UML peut être compatible avec d'autres 
outils UML. Vérifiez cependant si c'est bien le cas. 


BPM signifie Business Process Model, pour Modèle de Processus de Gestion. 


Un modèle BPM permet de créer vite un logiciel de gestion, grâce notamment 
à XML Frames. 


° © M STAR UML 


STAR UML est un outil Libre donc partagé en licence GNU/GPL. 


Il a été fait sous DELPHI. Vous pouvez donc tenter de le migrer vers 
LAZARUS après avoir vérifié que quelqu'un ne le fait pas déjà. Dans ce cas, 
participez au projet de migration, qui peut être intégré au projet STAR UML. 


Créer son savoir-faire 
CREATIVE COMMON BY SA 


- © Introduction 


La communauté PASCAL a toujours essayé de préparer au maximum le 
travail du programmeur. Ainsi le programmeur de Composants LAZARUS s'y 
retrouvera mieux sur d'autres outils de Programmation Objet, ayant connu la 
simplicité et l'efficacité des Composants de DRA (Développement Rapide 
d'Applications) en Objet. 


Pour créer un savoir-faire respectez un seul principe : Évitez le copier-coller. 
On crée donc avec cette technique un savoir-faire : 
® Au début il n'y a que des unités de fonctions 
Puis on utilise et surcharge des Composants 
On crée des paquets de Composants 
On ouvre alors sa librairie aux autres API 
On automatise les paquets en une librairie 
On crée une Intelligence Artificielle automatisant les choix 
La librairie nécessite peu de Code à créer ou aucun 
On crée le reste du code automatiquement 


+ © Créer des unités de fonctions 


Vous pouvez vous aussi créer votre savoir-faire en créant d'abord des projets. 
Pour créer ces projets, nous vous apprenons à centraliser ce qui aurait été 
redondant. Évitez le copier-coller. Vous créez des unités de fonctions en 
centralisant un Code redondant. Vérifiez si votre fonction n'existe pas déjà en 
cherchant en anglais sur le web. 


Une unité de fonction c'est un regroupement de fonctions autour d'un même 
thème. Si la fonction que vous ajoutez n'est pas immédiatement associée à ce 
thème, n'hésitez pas à trouver un nouveau thème. On crée alors une nouvelle 
unité. 


+ © Les Composants 


LAZARUS sans les Composants ne serait pas utile. LAZARUS permet de 
créer rapidement des Logiciels grâce aux Composants. La programmation par 
Composants est rapide sur LAZARUS grâce à l'"Inspecteur d'Objets”. Vous 
pouvez décupler votre vitesse de création avec LAZARUS. 


Il est recommandé d'améliorer ou de créer des Composants, qui sont 
facilement mis en place. Ainsi votre savoir-faire ou vos Composants sont 
centralisés dans des paquets de Composants, puis dans une voire plusieurs 
librairies utilisant vos Composants. La librairie contient en plus des outils 
préparant le travail. 


Un paquet est un regroupement de Composants. Les paquets sont installés 
rapidement sur LAZARUS. Les Composants sont visibles dans LAZARUS. 
Les Composants de DRA sont facilement modifiables s'il sont fournis avec 
leurs Sources. Il s'agit cependant d'être expérimenté en PASCAL Objet. 


Vos unités de fonctions peuvent ensuite améliorer des Composants par le 
procédé de l'Héritage, ou par la participation Open Source. Vous créez alors 
votre premier paquet, en apprenant l'Objet. Vos unités de fonctions sont 
utilisées et améliorées. 


Vous participez alors à un projet Open Source après avoir vérifié la licence 
Open Source. Si la participation au projet est refusée il est nécessaire de 
s'interpeller sur l'utilité de cette participation. L'entreprise qui refuse la 
participation peut avoir d'autres objectifs que les vôtres. Vous pouvez alors 
surcharger le Composant. 


Un Composant LAZARUS est mis en place rapidement grâce à l'"Inspecteur 
d'Objets". Cet inspecteur permet d'affecter les propriétés de vos Composants, 
comme si vous étiez un simple utilisateur. Les propriétés permettant de 
développer sont un supplément au formulaire ouvert. Elles sont et doivent 
donc être situées en dehors du Code Source d'exécution. 


Votre Composant peut être amélioré grâce à la communauté. Cela ne vous 
empêche pas, par contre, de toujours être compétitif en recherchant d'autres 
projets à créer, pour que vos ou d'autres Composants en héritent. 


+ © L'économie de travail 


À l'heure actuelle nos libertés et nos droits dépendent de l'économie de travail 
réalisée avec la production industrielle et agroalimentaire, grâce aux énergies 
de plus en plus denses. Par exemple le charbon est moins dense que le pétrole. 
Le pétrole permet donc de faire plus de choses. Le thorium puis l'helium 3 
permettront d'en faire encore plus. 


Le métier d'informaticien consiste à optimiser les industries. Il consiste donc 
aussi à optimiser son travail. Le RAD pour Rapid Application Development, 
et son optimisation le VRAD servent à cela. 


- © Le Composant UML 


Les Composants de DRA sont dans une palette et peuvent être facilement 
inclus dans vos sources. Un Composant UML est un regroupement d'objets 
créant un micro-système remplissant une tâche définie. Le Composant RAD 
(version anglaise du DRA) est plus facile à comprendre, puisqu'il est visible. 
Sachez seulement que le Composant est l'ensemble de votre unité et un peu 
plus. 


Le Composant UML est plus abstrait que le Composant LAZARUS. Le 
Composant LAZARUS correspond cependant à la version UML. Peu de 
langages intègrent les Composants, plus proches de la vision humaine d'un 
système, permettant donc de développer mieux et plus vite. 


- © Son savoir-faire 


On crée des unités de fonctions, puis des Composants regroupés en paquets 
LAZARUS, puis une voire plusieurs librairies. Ces librairies sont 
indépendantes de LAZARUS, en étant entièrement automatisées grâce à des 
fichiers. 


L'aboutissement est la prise en compte de ce qui est demandé par les clients, 
en créant des fichiers automatisant la librairie. Ces fichiers sont dédiés à ce qui 
est demandé. Ce sont les fichiers métiers. Ces fichiers peuvent être 
automatiquement créés par l'analyste. 


Il y a alors plus de similitudes entre l'analyse et le Logiciel, puisque l'on peut 


passer plus de temps à analyser. En effet il est difficile d'avoir une analyse 
identique au Logiciel demandé, sans service qualité ou sans automatisation. 


Surcharger son savoir-faire afin que l'analyse crée le Logiciel sera la 
finalisation de l'ensemble des étapes d'automatisation. Vous pourrez alors 
créer le Logiciel avec le client. 


Une fois que ses Composants sont stables, on peut les ajouter au gestionnaire 
de paquets en ligne, en modifiant les préférences du gestionnaire. 


+ © Développement Très Rapide 
d'Applications 


Le Développement Très Rapide d'Applications c'est l'aboutissement de tout 
savoir-faire de DRA. L'utilisation du mot "Très" signifie que l'on crée le 
Logiciel directement, à partir de l'analyse du projet. On utilise la 
Programmation Orientée Objet afin de séparer ce qui est demandé par le 


client, du Logiciel en lui-même. 


On supprime alors une étape de programmation, à savoir la transcription de 
l'analyse en Logiciel, car celle-ci est automatisée par la Programmation Objet 
et les fichiers passifs. Les fichiers passifs contenant une analyse du Logiciel 
sont lus par le moteur de DTRA, afin de créer le Logiciel. 


Un Logiciel créé en Développement Très Rapide est toujours conforme à 
l'analyse, car l'analyse crée le Logiciel. En effet ce que demande le client est 
une vision humaine pouvant être comprise par un moteur DTRA. Des méta- 
modèles existent, permettant de synthétiser cette vision humaine. 


+ © Créer un Framework DTRA 


Le DTRA est une branche de l'Ingénierie Pilotée par les Modèles, Model 
Driven Engineering on MDE en anglais. 


Pour trouver un Framework DTRA, cherchez "bpmn engines". Le format 
BPMN 2, qui répertorie le format des données ainsi que le format des 
variables calculées, permet de transférer les applications entre les Frameworks 
DTRA. Le format BPEL permet de répertorier les actions sur le format 
BPMN 2. 


Il existe des Frameworks ou savoir-faire DTRA JAVA permettant de créer 
des Logiciels de gestion avec fiabilité. MICROSOFT à aussi créé des méta- 
modèles analytiques. 


W4 EXPRESS utilise des fichiers de description des méta-données. Ces 
informations en langage XML et leurs descriptions servent à définir comment 
on utilise une quelconque donnée. Cela permet d'homogénéiser les Logiciels 
pour pouvoir les créer plus vite. W4 EXPRESS n'est plus mis à jour. 
Cependant il est utilisé dans XML FRAMES. XML FFRAMES est un savoir- 
faire Client/Serveur, qui crée des applications de gestion sur WINDOWS, 
GNOME, KDE, voire MACOSX. 


Il est possible de créer son Framework Web de Développement Très Rapide, 
si la création de son Logiciel est répétitive. Ainsi l'automatisation permet de 
gagner du temps, ensuite. 


Un Logiciel de gestion c'est un Logiciel gérant des processus. Il est composé 
d'un lien vers les données, de fiches, de relations, de filtres, de statistiques, de 
feuilles de calcul, etc. Il est simple à modéliser donc simple à automatiser. 


Les Composants ou plugins permettent de créer une partie du Logiciel selon 
les spécificités demandées. Ces Composants ou plugins permettent d'étendre 
les capacités techniques du moteur. Ils nécessitent une approche à la fois 
élémentaire, pour répondre à une partie infime de la demande, puis globale 
pour être inclus dans toute analyse. Ils sont utilisés dans l'EDI de DTRA ou 
EDTRA. 


Il suffit alors d'utiliser une Ingénierie Pilotée par Modèle, afin de centraliser ce 
genre de Logiciel dans un moteur contenant les Composants. Les Composants 
sont renseignés par les modèles analytiques, pouvant lire toute analyse. Les 
Logiciels, créés sans le moteur DTRA, renseignent uniquement les 


Composants. 


Ainsi il y a au moins deux couches dans un modèle DTRA, à savoir les 
Composants, puis le moteur qui renseigne les Composants. Il s'agit donc de 
EXTENDED et XML FRAMES. 


Une troisième couche intermédiaire est représentée par les composants qui 
permettent de se passer des fichiers analytique, mais qui ne servent pas pour 
une application standard. Il s'agit de MAN FRAMES. Cette couche contient la 
partie création de données. 


Une fois cette étape passée les Logiciels peuvent être en partie traduits, par le 
reverse engineering traduisant les données en un début de Logiciel. Vous 
créez ensuite la partie dynamique, non incluse dans les données. 


On peut créer une quatrième couche, qui va permettre d'analyser ce que veut 
l'utilisateur, par une Intelligence Artificielle. 


Il est donc possible de créer des plugins, dans les Frameworks ATK ou JELIX 
JFORMS, ou tout Framework de gestion, afin de permettre leur 
automatisation. 


+ © Intérêts du DTRA 


Mis à part le gain de temps, supprimer une étape de programmation permet 
d'améliorer aussi la qualité des Logiciels créés. L'analyse correspond toujours 
au Logiciel, puisque l'analyse crée le Logiciel. Les jeux de tests sont mis en 
place pour le moteur DTRA uniquement. 


Même si un moteur DTRA nécessite au moins un ingénieur développeur, ce 
dernier pense fonctionnalités et pérennité du système. 


Les fichiers passifs peuvent être lus par d'autres moteurs. XML FRAMES 
utilise les fichiers passifs de W4 EXPRESS. II est possible de créer des Forks 
de W4 EXPRESS sur d'autres langages, grâce à des Frameworks de gestion, 
avec fiches et relations. 


- © Créer un Composant 


NS 


Nous allons ajouter un fonctionnement automatisé à un bouton. Ce 
Composant surchargé fermera sa fenêtre. Nous allons aussi lui affecter une 
image. Pour tout bouton créé, sera affectée une seule image. Ainsi l'exécutable 
est plus léger. Ce bouton permet de fermer un formulaire. 


Le Composant qui va être créé va donc répondre à une demande technique : 
La taille de l'exécutable et la centralisation des Sources. La centralisation des 
Sources va permettre de répondre à l'automatisation de son savoir-faire. Cela 
va donc permettre de répondre plus rapidement à la demande du client. 


Pour créer votre paquet personnalisé Faites "Fichier" puis "Nouveau" puis 
"Paquet". 
Nouveau: 


& ea Projet 
: L.F]) Application 
-[f] Programme 
-[f]) Application cons 
-[f] Librairie 
-[[] Programme pers 
-[F] CGI Application 
-[] Custom CGI App 
F] Apache Module 
FastCGli Applicat 
-[F] Custom FastCGl 


Créer un nouveau paquet dans l''EDI LAZARUS" 
Nommez le paquet "LightButtons". 


"Ajoutez" la condition "LCL". Une condition est un paquet utilisé. Le paquet 
LCL contient tous les Composants visuels standards. 


Si vous voulez gagner du temps sur la création de votre composant, vous 
pouvez "créer un Composant” dans le menu du paquet. Nous vous expliquons 
comment faire sans passer par cette aide ensuite. 


"Ajoutez" un "Nouveau fichier" "Unité", puis sauvegardez votre unité sous le 
nom "u_buttons_appli”. Faites attention à ne pas affecter un nom de fichier 
identique à une unité existante, car LAZARUS n'aime pas du tout cela. Il veut 
que tout fichier portant le même nom soit exactement identique. 


Enregistrez votre paquet en cliquant sur "Enregistrer", dans le projet de 
paquet. Affectez lui le nom "LazBoutonsPersonnalises". 


_Ajoutez ce type dans la partie interface de votre unité : 
{$mode DELPHI} 
interface 
uses StdCtris, Classes, lresources ; 


type 
IMyButton = interface 
['{620FE27F-98C1-4A6D-ES54F-FE57A06207D5}] 
End ; 

La source placée après interface s'appelle Ie GUID. IT s'agit de l'identifiant 

unique permettant de retrouver plus facilement votre interface. 


Il est inutile de recopier entièrement cette partie. Créez votre GUID en 
ajoutant une ligne après interface, puis en appuyant simultanément sur Shift 
+Ctrl+G. 


L'unité "StdCtrls” contient les boutons. L'unité "Classes" contient le type 
Composant. L'unité "Iresources" vous permettra d'ajouter les images à vos 
boutons. 

On utilise le mode DELPHI afin de ne pas avoir à gérer les adresses de 
pointeurs. Le mode DELPHI est expliqué dans le chapitre De PASCAL vers 
FREE PASCAL. 

On déclare un type interface permettant d'indiquer que nos boutons supportent 
tous le type "IMyButton”. 


La chaîne hexadécimale permet d'utiliser le comparateur "is" dans toute classe 
afin de reconnaître le type "IMyButton”. Aïnsi nous retrouvons plus 
facilement nos boutons. Nous utilisons le Polymorphisme pour reconnaître 
nos propres boutons. 


Voici le Code Source permettant de reconnaître nos boutons : 
If UneClasse is IMyButton Then 
Begin 
ShowMessage ("C'est mon bouton !"); 
End; 


En FREE PASCAL on définit au maximum ce que l'on fait. Les définitions 
d'interface permettent d'utiliser l'Objet à ses possibilités maximum afin 
d'améliorer les interfaces humaines, en améliorant l'utilisation de ses 


Composants. 


_Juste après la définition de l'interface "IMyButton"” placez ce Code : 
TMyClose = class ( TBitBtn,IMyButton ) 

private 

public 
constructor Create(TheOwner: TComponent); override; 
procedure Click; override; 

published 
property Glyph stored False; 

End; 


TMyClose est le descendant de TBitBtn. Il supporte l'interface IMyButton. 


Le Constructeur Create et la méthode Click sont présents dans le Composant 
TBitButton par l'Héritage. Nous les surchargeons par le mot clé "override" 
suivi d'un ";". 

Grâce au Polymorphisme LAZARUS vous pouvez changer l'ancêtre 
"TBitBtn" par un ancêtre bouton possédant un "Glyph". D'autres boutons avec 
"Glyph" existent en dehors du projet LAZARUS. Vous pouvez donc 
facilement changer de type Bouton par la classe que vous créez. 


Tous les Composants LAZARUS possèdent le Constructeur Create avec, 
comme paramètre, le Propriétaire du Composant. Notre Composant est donc 
automatiquement détruit lorsque son parent se détruit. 


Aussi tous les Composants descendants de la classe TLCLComponent 
possèdent la méthode "Click" sans aucun paramètre. Une méthode qui peut 


être surchargée possède le mot clé "virtual". 


Le Composant ancêtre définissant la méthode utilise donc le mot clé "virtual" 
sur la méthode créée. Vous pouvez donc facilement vérifier si c'est bien 
TLCLComponent qui définit "Click" en maintenant "Ctrl" enfoncée puis en 
cliquant sur la procédure Click jusqu'à ne plus trouver override. 


Pour chercher l'unité du bouton "TBitBtn" cherchez dans tous les répertoires 
du Code Source de LAZARUS la bonne unité. Sinon cette unité s'appelle 
"StdCtrls". Cette unité est incluse dans le paquet LCL, la Librairie de 
Composants visuels. 


Dans le paquet "Ajoutez" la "Condition" "LCL". 
(X]-)(0) Paquet LazBoutonsPersonnalises 


Ajouter au paquet 


Nouvelle condition 


vom upeaut {ua D 


Version min. (optionnel) [ 
| Version max. (optionnel)| | 


Ajouter la condition "LCL" au paquet 


Vous pouvez "Compiler" le paquet pour trouver des erreurs. Si votre Code 
Source est bon vous pouvez appuyez sur "Ctrl"+ "Shift" + "C". Cela va créer 
les deux méthodes. 


Maintenant nous allons remplir les deux méthodes surchargées dans la partie 
re nple n e atatic a" : 


implementation 


uses Forms; 


// Créer des constantes permet d'éviter de se tromper pour 
leur réutilisation 


const 
CST_FWCLOSE="TMyClose', // Nom du fichier Image 


{ TMyClose } 
procedure TMyClose.Click; 
begin 
if not assigned ( OnClick ) 
and ( Owner is TCustomForm ) then 
Begin 
( Owner as TCustomForm j}).Close; // Fermeture du 
formulaire 
Exit; 
End; 
inherited; 
end; 


constructor TMyClose.Create(TheOwner: TComponent); 
begin 
inherited Create ( TheOwner }); 
if Glyph.Empty then 
Begin 
1! Charge le fichier Image 
Glyph.LoadFromLazarusResource ( CST_MYCLOSE); 
End; 
end; 


Il est nécessaire d'utiliser des constantes classées. Elles permettent de 
centraliser les chaînes afin d'optimiser. Ajoutez la constante 
CST_MYCLOSE à la partie interface de votre unité de Composant. Affectez 
lui le nom de votre classe créée, à savoir "TMyClose”. 


Voilà l'essentiel de notre Composant "TMyClose”. La procédure surchargée 
"Click" ferme le formulaire, s'il n'y a pas d'événement de "Click" sur le 
Bouton dans le formulaire. Il suffit que cette Source soit exécutée deux fois 
dans l'Application pour que cette Source ait remplit un objectif 
d'automatisation. 


On passe la méthode "Click" héritée par la méthode "Exit". On a vérifié, avant 
d'éluder la méthode "Click" de l'ancêtre, qu'il n'y avait que la gestion de 
l'événement "OnClick" que l'on évitait. Nous n'éludons effectivement pas 
l'événement "OnClick" en vérifiant s'il existe. Ainsi nous permettons d'utiliser 
le bouton de fermeture uniquement pour l'image centralisée. 


Le Code spécifique est automatisé avec le maximum de Composants 


possédant différents objectifs. On se rend compte que, bien que le Composant 
permette de centraliser, celui-ci augmente aussi la taille de l'exécutable. 


Si la fonction de fermeture était sur chaque événement de chaque bouton, cela 
alourdirait l'exécutable. Aussi, si les conditions techniques de fermeture du 
formulaire changeaient, il faudrait changer le Code Source de chaque bouton 
ne descendant pas de "TMyClose”. 


+ © MH Choix de l'image 


Le Code Source du Constructeur va créer une erreur à l'exécution car il n'y a 
pas de fichier image. 


Le Constructeur de notre bouton charge l'image du bouton grâce au fichier 
"rs". 


Choisissez votre image de fermeture sur un site Web comme OPEN 
CLIPART, contenant des images Libres avec une licence "Domaine Public". 
Une licence "Domaine Public" est utilisable en citant uniquement la source, 
afin de se protéger. C'est la licence la plus libre qui soit. Il existe aussi dans le 
même genre la CCO, la Creative Common sans rien du tout, la licence BSD 
aussi. 


Il existe aussi des images avec des licences "Art Libre”, ou "Creative 
Common" avec ou sans "by" avec ou sans "SA". Le "by" signifie qu'on doit 
citer l'auteur. 


Vérifiez la licence. Si vous vous posez des questions sur les licences vous 
pouvez contacter un Groupe d'Utilisateurs LINUX local ou GUL. 


Les licences Libres possèdent plus de facilités quant aux modifications. Vous 
avez une définition de Libre dans le glossaire. 


Le fichier image doit être un fichier "XPM", de 24 pixels sur 24 pixels, avec 
comme nom le type de la classe de notre bouton. Cela permet de charger 
l'image du bouton dans la palette de Composants. L'image peut être 
transparente en partie, afin de l'intégrer plus facilement. 


Convertissez avec GIMP votre image au format "XPM". Pour faire cela 
sauvegardez l'image avec GIMP, en remplaçant l'ancienne extension de fichier 
par "XPM" sans enlever le point. L'extension ce sont les dernières lettres 


après le dernier point du fichier. 


Créez dans le répertoire du paquet un fichier vide "u_buttons_appli.irs". Allez 
dans votre dossier contenant "LAZARUS". Allez dans le répertoire "tools". 


Compilez le projet "glazres", si ce n'est pas déjà fait. Avec vous créez votre 


= 


fichier "rs" à partir d'images. 


Vous pouvez éventuellement ajouter d'autres images, si vous voulez créer 
d'autres boutons. 


Nous allons ajouter le fichier ressource à l'unité. 


Allez tout à la fin de l'unité de votre Composant. Insérez cette Source avant le 
"end." final : 
initialization 

{$l u_buttons_appli.lrs} 
end. 


L'unité "lresources" est nécessaire pour les fichiers rs. Vous pouvez aussi 
utiliser les fichiers ".Res" de DELPHI. 
La directive {$I} ajoute le fichier ressource au Code Source. 


+ © M Enregistrement du Composant 


Enregistrer le Composant permet de voir certaines de ses propriétés reconnues 
par LAZARUS, afin d'éditer rapidement le Composant. 


Il est possible d'utiliser des propriétés, voire de les surcharger, dans son unité 
d'enregistrement de Composants. 


Un Composant est un Objet descendant de l'Objet TComponent. Tout 
Composant LAZARUS, descendant de TComponent, peut être accessible dans 
la palette de Composant. 


Pour qu'un Composant soit enregistré dans une palette, voici le Code Source à 
affecter à une unité d'enregistrement du Composant. 
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Unit u_regboutons; 


interface 
uses Classes; 
procedure Register; 
implementation 
uses u_buttons_appli; 
procedure Register; 
begin 
RegisterComponents(MesBoutons', [TMyClose]); 


end; 


end. 


La procédure "Register" doit être exécutée par le paquet qui installe le 
Composant. Vérifiez pour cette unité si la case à cocher "Référencer l'unité" 
est cochée. 


L'unité d'enregistrement ne doit jamais être utilisée dans votre programme. En 
effet le Code Source de développement est inutile pour le programme 
exécutable. 


u buttons _appli.lrs 
u_buttons_appli.pas 
| LE 
—-8 Paquets requis 


id LCL 
id FCL (>=1.0) 


"Référencer l'unité" est coché pour l'unité 


+ © M Modifier ou Surcharger ? 


Si votre Composant ajoute un objectif au Composant initial, il est préférable 
de créer une autre unité surchargeant le Composant. Cette dernière permet de 
ne pas avoir de Code inutilisé pour le Composant à surcharger. 


La modification d'un Composant se fait en deux étapes. Pour pouvoir modifier 
un Composant, l'accord de l'auteur est nécessaire. Vous avez alors accès au 
gestionnaire de version permettant de le modifier. 


Sinon le Composant peut être abandonné, et sa licence permet de le modifier. 
S'il n'y a aucune licence, contactez l'auteur. 


Sinon vous ne faites qu'ajouter des options mineures ou vous créez un Fork, 
un second projet évoluant différemment. Seulement, sans l'accord de 
participation de l'auteur, vous ne pouvez pas correctement mettre à jour le 
Composant, Vous êtes alors seul responsable de ses évolutions. Il suffit 
souvent de contacter l'auteur, qui sera en général content de vous aider à 
améliorer son savoir-faire. 


+ © Surcharger un Composant 


N'hésitez pas à surcharger tout Composant, surtout si vous disposez des 
Sources qui permettent de trouver plus facilement les contournements pour les 
erreurs d'Héritage. 


Lorsque vous surchargez un Composant, vous avez accès aux méthodes 
protégées. Ces méthodes sont inaccessibles sans la surcharge. 


Il faut quelquefois être astucieux, afin de surcharger correctement certaines 
méthodes, de certains Composants. Vous pouvez indiquer à l'auteur du 
Composant les modifications nécessaires à un Héritage facilement effectué. 
Évitez d'utiliser des contournements, car ils peuvent provoquer de nouvelles 
erreurs à la mise à jour. 


+ © Créer une librairie homogène 


Un paquet de Composants est mis en place rapidement. En voulant être encore 
plus rapide, vos paquets deviennent une librairie complète paramétrable au 
minimum voulu. Vous sublimez alors votre capacité d'adaptation en ne créant 
que l'utile. 


Ce qui sera personnalisé sera paramétrable. Le reste se configurera 
automatiquement. 


Une librairie fournit des outils et des procédés pour créer son Logiciel sans 
perdre de temps. Il faudra améliorer l'EDI LAZARUS ou bien éviter d'utiliser 
l'EDI avec des fichiers de configuration. Ces fichiers pourront être idéalement 
des fichiers analytiques UML ou MERISE. Ces fichiers vous permettront 
d'être indépendant de LAZARUS, en utilisant les mêmes savoir-faire sur 
d'autres outils de programmation. 


O Le Libre et l'entreprise 


LAZARUS contredit les professeurs ou institutions, indiquant que les 
Composants nécessitent plus de temps en maintenance qu'en gain de temps à 
l'utilisation. Un Composant LAZARUS fait gagner beaucoup de temps, grâce 
à l’"Inspecteur d'Objets" et au Code Source de développement. 


Votre Composant s'il est bien documenté peut devenir un atout fiable, faisant 
connaître votre société. Il peut aussi être sauvé de l'abandon, grâce à une 
communauté toujours plus avare de Composants Libres. Un Composant qui 
devient Libre veut soit être populaire, soit se faire connaître pour survivre. 
Cela n'empêche pas une activité commerciale. 


Créer un Composant Libre permet de faire connaître votre Composant, mais 
aussi de trouver le moyen de savoir si on reste le meilleur dans son domaine, 
en créant une communauté sondant les utilisateurs et contributeurs. 


N'espérez pas des contributeurs qu'ils collaborent sans être rémunérés. Vous 
serez par contre peut-être rémunéré pour des modifications importantes. 
Attendez de votre communauté une expertise sur votre savoir, des aides pour 
vous promouvoir. Ces aides ne sont peut-être pas celles que vous souhaitez. 
Elles permettent donc de trouver de nouveaux marchés. 


+ © Tester son savoir-faire 


Un Composant est au cœur de votre savoir-faire. Si vous modifiez votre 
Composant cela implique forcément des réactions en chaîne dans votre 
Logiciel. Il est donc très intéressant de mettre en place des jeux de tests en 
surchargeant vos paquets de Composants. 


+ © L'exemple 


FPCUnit vous permet de tester les Logiciels FREE PASCAL. Nous allons 
mettre en place des jeux de tests pour notre bouton de fermeture. 


Dans le répertoire de votre Composants créez un dossier "tests". Dans le menu 
"Fichier", créez une "Nouvelle" "FPC Unit - Application de tests",en 
remplaçant le nom du jeu de tests "TestCase" par "TestButtons". "Enregistrez" 
le projet en le nommant "fpcunitbuttons", dans le dossier créé. 


Ajoutez dans la clause "uses" du projet l'unité "Interfaces". Cette unité est 
nécessaire pour gérer les formulaires, dont nous avons besoin pour tester le 
bouton de fermeture du formulaire. 


Dans le menu "Projet", puis "Inspecteur de Projet", ajoutez avec "+" votre 
paquet en "Nouvelle Condition". Ou bien ajoutez le dossier "../" dans les 
"Options du projet”, puis "Options de compilation", puis le dossier des 
librairies. Cela permet de tester le Composant sans avoir à l'installer. 


° © M Le formulaire 


Ajoutez un nouveau formulaire nommé "testform". Dans la partie "interface", 
ajoutez l'unité "u_buttons_appli”. 


Dans le formulaire, nous allons mettre en place le bouton que nous avons 
créé. 


Le formulaire possède ces méthodes et variables, dont certaines existaient 


és dans l tb he 
{ TTestForm } 


TTestForm = class(TForm) 
public 
Bouton : TMyClose; 
procedure DoClose ( var AAction : TCloseAction j); 
override; 
procedure RunBouton; 
destructor Destroy; override; 
end; 


Nous n'avons pas besoin de tester le formulaire, mais le bouton. Nous créons 


procedure TTestForm.RunBouton:; 
begin 

Bouton := TMyClose.Create(Self); 
end; 


Il est intéressant d'utiliser d'autres moyens de création, que ceux utilisés par le 
développeur, afin de vérifier le Composant autrement. Ne négligez pas 


cependant les jeux de tests à effectuer. 


Nous créons l'auto-destruction du formulaire, afin de vérifier plus tard s'il est 


_correctement détruit : 
procedure TTestForm.DoClose(var AAction: TCloseAction); 
begin 
inherited DoClose(AAction); 
AAction := caFree; 
end; 


destructor TTestForm.Destroy; 
begin 

inherited Destroy; 

TestForm := nil; 
end; 


Nous testons le bouton et ne testons pas le formulaire. Nous nous assurons 
donc que le formulaire est correctement affecté à "nil", même si dans les 


sources il est censé être correctement affecté à "nil". 


° © M La classe de tests unitaires 


si : b] | see 
{ TTestButtons } 


TTestButtons= class(TTestCase) 
protected 
procedure SetUp; override; 
procedure TearDown; override; 
published 
Procedure Tests; 
procedure TestHookUp; 
end; 


Les deux méthodes publiées sont affectées dans les jeux des tests par 
l'initialisation d'unité suivante, située tout à la fin de votre unité de classe de 
tests : 
initialization 

Register Test(TTestButtons); 
end. 


Les tests sont récupérés par le projet de tests avec cette méthode. 


Voici la méthode de création des Objets testés : 
procedure TTestButtons.SetUp; 
begin 
/J Ynitialize 
Application.CreateForm( TTestForm, TestForm ); 
TestForm.RunBouton; 
end; 


Dans votre savoir-faire il est préférable de mettre les commentaires en anglais, 
afin d'internationaliser vos Composants. 


_Le formulaire a été créé. IL est préférable de le détruire par nous même : 
procedure TTestButtons.TearDown:; 
begin 

1J Freeïing 

TestForm.Free; 
end; 


_Passons aux jeux de tests : 
procedure TTestButtons.Tests; 
begin 
SetUp: 
1/ testing 
AssertTrue("Testing Glyph of 
TMyClose',assigned(TestForm.Bouton.Glyph)); 
TestForm.Bouton.Click; 
AssertTrue("TestForm of TMyClose not visible’, Assigned( 
TestForm )); 
TearDown; 
end; 


L'implémentation précédente est une des deux méthodes publiées qui sera 
appelée pour tester le bouton. Il est donc nécessaire de créer les Composants 
avant les jeux de tests avec "SetUp", pour les détruire à la fin avec 


"TearDown". 


La classe TTestCase possède elle-même des méthodes permettant d'effectuer 
les tests en les enregistrant dans le projet. 


Un jeu de test FPCUnit commence par "Assert", suivi du type de jeu de tests. 


"AssertTrue" va donc tester si le deuxième paramètre est bien à "True". Quant 
au premier paramètre il permet de savoir quel jeu de test nous réalisons. Si 
vous voulez tester une valeur, alors utilisez "AssertEquals". 


Nous testons bien le fait que le "Glyph" soit affecté à la création, sans avoir 
besoin de formulaire. Nous testons aussi la fermeture du formulaire par le 
bouton "TMyClose”". Nous ne testons pas cependant le fait que le Glyph ne 
soit pas enregistré dans le formulaire. 


Cette méthode publiée permet de tester si les jeux de tests sont effectivement 
_EXÉCULÉS : 
procedure TTestButtons.TestHookUp; 
begin 
Fail(Test of button finished'); 
end; 


La méthode "Fail" envoie un message d'erreur. Elle devra donc être vue à 
l'exécution. Elle pourra être enlevée en utilisant d'autres utilitaires de tests 
plus évolués. 


+ © M Le projet de tests 
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{ TMyTestRunner } 


TMyTestRunner = class(TTestRunner) 
I! override the protected methods of TTestRunner to 
customize its behavior 


public 
procedure RunTests; 
end; 
C éthod dE Es: . 


{ TMyTestRunner } 


procedure TMyTestRunner.RunTests; 
begin 

DoTestRun(GetTestRegistry); 
end; 


ERA ne Moro 
var 
Application: TMyTestRunner; 


begin 
Application := TMyTestRunner.Create(nil); 
Application.Initialize; 
Application. Title :="FPCUnit Console test runner'; 
Application.RunTests; 
Application.Free; 

end. 


Comme dans un projet standard, nous créeons un Objet central, qui gère les 
Objets de tests cette fois ci. 


Après avoir initialisé, puis nommé notre Logiciel, nous démarrons les tests. 
Enfin nous libérons notre Logiciel. 


« © Exercice 


Améliorez vos tests, grâce à la documentation de FPCUnit, ou bien grâce à 
FPCUnit2. 


+ © Remarques 


Il est préférable de toucher le moins possible à certaines propriétés de paquet. 
Par exemple, si vous changez un chemin dans l'onglet "Chemins" d'un paquet, 
LAZARUS compilera mal. 

Si vous ajoutez un formulaire et que vous voulez l'ajouter à votre paquet, 
vérifiez bien que vous ne l'avez par ajouté à un projet en cours. 


+ © Conclusion 


Les Composants doivent être testés. Mais ils permettent de gagner beaucoup 
de temps grâce à votre EDI de DRA. 


Les Composants permettent aussi de créer des Logiciels personnalisés et 
intuitifs. 


À la fin vous disposez d'un moteur créant vos Logiciels grâce à une analyse 
uniforme, stockée dans des fichiers passifs. Les gains de temps sont minimes 
avec le moteur comparé au travail fourni, mais ce dernier permet de fiabiliser 
votre création de Logiciels. 


* © Aller plus loin 


Créer des composants nécessite de correctement détruire les objets sans 
propriétaire. Vous pouvez utiliser l’outil de débogage Heaptrc pour trouver ce 
qui n’a pas été détruit à la fermeture de votre application. 


Seulement, n’oubliez pas que se vous créez un objet dans un composant et que 
vous voulez le placer dans les propriétés publiées, celui-ci ne peut être affecté 
directement dans la propriété publiée du composant. Vous devez utiliser la 
méthode assign de l’objet à la place de l’affectation de la propriété. 


Exemple de déclaration d’une liste : 


TMyClose = class ( TBitBtn,IMyButton ) 

private 
List : Tstrings ; 
procedure SetList ( const Alist : TStrings ) ; 

public 
constructor Create(TheOwner: TComponent); override; 
destructor Destroy; override; 

published 
property List read Llist write SetList; 

End; 


| cil ere 
procedure TMyClose.SetList ( const Alist : TStrings ) ; 
begin 
if Alist = nil 
then Llist.Clear 
else Llist.assign ( Alist ); 
end; 


N'oubliez pas de détruire ce TStrings, qui n’a pas de propriétaire, dans le 
Destroy de votre composant. 


Si vous créez votre propre objet vous devez remplir vos propriétés 
supplémentaires en surchargeant la procédure AssignTo de votre objet. 


Coopération DRA 


CREATIVE COMMON BY SA 


- © Introduction 


Lorsque son projet, ou celui d'un autre, demande l'intervention d'au moins un 
autre développeur, il convient d'installer un outil de collaboration. On utilise 
un outil collaboratif public, si nos sources sont libres, ou un outil interne ou 
non référencé, si nos sources sont commerciales. 


.- © Lelibre et l'économie 


Pouvoir améliorer puis redistribuer une œuvre permet indéniablement d'avoir 
exactement ce que l'on veut avec le minimum de temps. Sans le partage un 
travail peut être perdu. 


Vous me direz qu'il faut cependant créer des emplois, et que les entreprises 
privatives permettent de créer des emplois. C'est une réflexion de Shadok. On 
a tous compris qu'il ne suffit pas de pomper pour que l'économie tourne. C'est 
pourtant ce que proposent beaucoup de personnes censées défendre la valeur 
travail. 


L'économie actuelle ne fonctionne assurément pas sur la création d'emplois 
virtuels. L'économie actuelle fonctionne d'abord grâce à l'agriculture avec les 
industries améliorées par la science. C'est là qu'interviennent le domaine 
public et les licences libres. 


Pour qu'un pays se développe il faut améliorer le fonctionnement des secteurs 
agricoles et industriels. Aïnsi les trains, en utilisant un seul moteur pour 
beaucoup de personnes ou de produits, permettent de ne pas utiliser le cheval 
ou la voiture et son conducteur. L'association scientifique d'éléments va donc 
permettre d'économiser du travail pour notamment améliorer le secteur 
agricole. 


Avec le moteur, le cheval va alors devenir un partenaire plutôt qu'un outil. Le 
conducteur va lui s'occuper d'autre chose, pour peu que le pays se développe, 
grâce aux trains par ailleurs. On va par exemple orienter le conducteur vers les 
métiers scientifiques ou artistiques. 


Depuis la privatisation de la monnaie en 1973, on voit ainsi que la perte des 
lignes ferroviaires crée des bouchons dans les grandes villes tout en 
appauvrissant les campagnes. En effet les trains faisaient vivre la campagne 
grâce à cette économie de travail. L'économie de travail est donc la base de 
notre économie. Les trains ont été créés parce qu'on a pu capter l'énergie du 
charbon, plus dense que la biomasse. On a remplacé du travail humain par un 
travail de moteur. Avec le développement des industries et de l'association 
l'humain devient un esprit, pas une Ressource Humaine. 


Les licences libres, qui sont l'adaptation des bénéfices du domaine public au 
droit d'auteur, permettent elles aussi l'économie de travail par l'association, de 
la même manière que le train. La licence libre permet notamment de protéger 
la diffusion de l'œuvre du droit d'auteur. En effet le droit d'auteur ne permet 
plus de protéger l'auteur. Ce dernier peut signer un contrat d'exclusivité. Cela 


se termine le plus souvent par une cession dans le domaine public, 70 ans 
après la mort de l'auteur en France. Ne parlez surtout pas d'assurance vie à un 
auteur censuré par l'exclusivité. 


Lorsque l'économie se contracte ou lorsque le pays se développe, diffuser 
largement une œuvre va permettre une réutilisation rapide de l'œuvre. Vous 
me direz que les œuvres propriétaires peuvent être diffusées aussi très vite, 
grâce à du marketing et aux industries. Seulement ces œuvres se basent très 
souvent sur le domaine public ou certaines œuvres libres pour être vite créées. 
Nous naissons avec un héritage à améliorer. Créer consiste le plus souvent à 
améliorer. Il est très facile d'améliorer une recette plutôt qu'un plat à 
consommer. Ainsi les Logiciels privatifs contiennent de plus en plus de 
sources libres, en respect de la licence privative, dit-on. 


La licence GPL, demandant à redistribuer les sources, peut d'ailleurs être un 
piège pour ces entreprises. C'est ainsi qu'une partie du système ANDROID est 
devenu libre, puisqu'il était devenu entièrement dépendant de LINUX. La 
concurrence va alors demander à GOOGLE de faire plus de fleurs à 
l'utilisateur. La licence GPL est économiquement saine. Par ailleurs le 
système LINUX exige un haut niveau de sûreté, parce que quiconque peut 
l'améliorer. Ce haut niveau de sûreté n'était même pas respecté par GOOGLE. 


N'essayez pas de créer quelque chose qui a déjà été fait. C'est ce que sont 
censées faire les entreprises pour respecter le non partage de la recette d'une 
œuvre. Les termes anglais sont Reverse Engineering ou Hacking quand on 
utilise une œuvre pour créer la recette. Le Hacking avec son homonyme plus 
récent et moins connoté sont utilisés pour percer le secret d'une œuvre, afin de 
pouvoir l'adapter au monde actuel pour utiliser l'œuvre. Tout ceci peut être 
légal ou illégal, selon le respect du droit d'auteur ou du brevet. Mais il faut 
aussi respecter l'économie de travail consistant à utiliser ce qui a été produit. 


Une entreprise peut d'ailleurs utiliser l'économie de travail pour se défendre 
face à une entreprise privative. En effet, les licences libres permettent de se 
protéger du privatif et de son extension l’obsolescence programmée. Sans la 
recette de l'œuvre impossible de réparer correctement certaines parties de 
l'œuvre. On peut se tromper et détruire l'œuvre. Il n'y a plus d'économie de 
travail. Le pays ne se développe pas. L'entreprise corrompue doit alors 
permettre la réparation, pour peu que la production soit faite dans le pays de 
vente. Produire et vendre dans le même pays permet de respecter le 
producteur et donc le consommateur. 


GNU LINUX REPLICANT, clone entièrement libre de LINUX ANDROID, 
permet ainsi de sauver la diffusion d'un matériel privatif, en lui ajoutant 
d'ailleurs plus de sûreté et de pérennité. Beaucoup d'autres systèmes libres 


permettent de faire cela. Les libristes vont d'ailleurs adorer installer un 
LINUX sur un matériel privatif. En faisant cela ils prolongent la durée de vie 
du matériel et permettent donc l'économie de travail. Ils se protègent et 
protègent les autres du privatif. 


Le domaine public et les licences libres permettent l'économie de travail, 
notion essentielle de notre économie, grâce à la diffusion rapide, la sûreté du 
partage, la pérennité. Nous sommes des individus sociaux et créatifs capables 
de lier de plus en plus vite et et plus en plus d'éléments, grâce à l'association 
d'idées et de personnes, avec la réflexion scientifique selon Platon. 


www.economie-reelle.org 


+ © Pourquoi participer ? 


LAZARUS est l'outil DRA libre le plus complet. Il a sauvé DELPHI. Ainsi de 
nombreux projets de Logiciels industriels français peuvent être sauvés. En 
effet le byte-code que l'on crée avec le langage JAVA est plus léger en Pascal, 
alors que beaucoup d'entreprises françaises dont AIRBUS sont anciennement 
passées de PASCAL à JAVA, pour revenir sur PASCAL. JAVA est très 
utilisé en ce moment, alors qu'une application PASCAL est compatible JAVA 
et plus rapide. 


La communauté PASCAL est active parce qu'il est facile d'apprendre le 
PASCAL Objet. On crée vite des interfaces homme-machine. Il devient 
ensuite ingénieux de bien connaître les Composants Objets. La faille de 
beaucoup d'entreprises a été de n'être que des consommateurs d'EDI de DRA, 
alors qu'il existait des projets libres, surtout en PASCAL. 


En 2006, on me disait souvent de ne surtout pas participer aux projets libres, 
en commençant par la simple utilisation. C'est normal qu'un projet libre fasse 
moins de choses qu'un projet payant. Cependant s'il fait le nécessaire c'est lui 
qu'il faut choisir. On m'avait indiqué qu'il y avait beaucoup plus de gadgets 
dans le projet DEV EXPRESS et que c'était une raison pour le prendre. 
Cependant on a pu améliorer une grille partagée pour avoir exactement ce 
qu'on voulait. Impossible de participer à DEV EXPRESS aussi facilement. 


Sans la diffusion partagée, le droit d'auteur ne permet pas de protéger un 
projet esseulé. Le fait que DELPHI partage ses sources a permis un début de 
pérennité de l’outil DELPHI. Ce qui a sauvé DELPHI c’est le partage 
d'INTERBASE qui a créé FIREBIRD. FIREBIRD est aujourd’hui lié a 
LIBRE OFFICE. Les projets Libres dont JEDI ont incité à créer LAZARUS 
par un compilateur PASCAL Libre. Les projets INDY et INTRAWEB ont 
permis de pérenniser DELPHI par le partage. 


Depuis DELPHI 2006 jusqu'à DELPHI XE, le projet DELPHI capotait, 
comme pour tous les outils RAD qui étaient à l'époque propriétaires. On voit 
selon la déchéance NOKIA que MICROSOFT détruit les autres projets pour 
son hégémonie. Beaucoup de grosses entreprises agissent comme cela à cause 
de la théorie des jeux. La théorie des jeux ne permet pas d'anticiper sur une 
entreprise voyant sur le long terme. 


Le tout libre n'est possible que dans des pays qui se développent. On peut 
prendre les exemples récents de l'Asie. Dans ces pays beaucoup de travaux 
ont été dans le domaine public ou sont libres. Là-bas, il n'y avait pas besoin de 
penser à trouver de l'argent mais à produire des richesses, utiles donc. Les 


producteurs de ces richesses utiles étaient alors suffisamment rémunérés. Dans 
ce cas les entreprises voient sur le long terme. Ça n'est pas le cas chez nous 
depuis l'année 1973, lorsque la monnaie a été privatisée. 


C'est bien le projet libre LAZARUS qui a sauvé le projet DELPHI. En effet, la 
version EMBARCADERO DELPHI XE3 pour iOS s'est inspirée de 
LAZARUS. DELPHI XE5 a pu s'inspirer de LAZARUS pour ANDROID, 
notamment du compilateur de byte-code. 


Pendant un certain temps, LAZARUS permettait de passer au 64 bits alors 
que DELPHI ne le permettait pas. Une entreprise qui m'avait téléphoné 
m'avait dit qu'elle attendait la prochaine version DELPHI pour passer au 64 
bits. Or il suffisait de participer activement ou financièrement au projet 
LAZARUS pour avoir non seulement le 64 bits, mais la puissance de GNU 
LINUX, voire aujourd'hui la comptabilité de la plate-forme sur laquelle vous 
travaillez. 


Actuellement EMBARCADERO accumule les licences achetées en France. 
Beaucoup d'entreprises françaises ont acheté DELPHI XE3 et DELPHI XES5. 
Pourtant LAZARUS aurait avancé à pas de géants avec ce genre d'aide 
financière. En plus l'argent aurait été pérennisé. DELPHI a besoin de 
LAZARUS tout comme LAZARUS a eu besoin des Composants Libres créés 


sur DELPHI. 


© Participer 


Une fois que l'on a créé ses Composants et qu'ils évoluent correctement, on 
peut enfin participer aux projets LAZARUS. 


Tout projet est Open Source afin que d'autres y participent. Seulement pour 
participer au projet LAZARUS il faut déjà améliorer des Composants. Vous 
avez vu, dans le chapitre permettant la création de son savoir-faire : 

Qu'il faut avoir en tête la structure des Composants ancêtres. 

® Que toute nouvelle propriété doit avoir un nom bien choisi. 

® Qu'il faut connaître l'anglais. 

® Qu'il faut documenter et commenter. 

e 

e 


Qu'à terme on pense en Objet, avec des outils adéquates. 
Qu'à terme on sait s'adapter à la machine, avec plein d'astuces. 


Nous vous avons donné des clés pour optimiser votre Code. À vous de trouver 
de nouvelles astuces. 


Plutôt que d'ajouter sans avoir d'idée sur la façon de le faire, il est préférable 
de faire avancer le projet LAZARUS, et de contacter des développeurs. Tout 
développeur utilisant LAZARUS peut vous aider. Les passionnés 
documentent et essaient d'être disponibles. Seule l'objectivité permet de 
s'améliorer pour participer à un projet. 


On commence avec un Composant à déboguer, puis on ajoute une 
fonctionnalité, puis on optimise son Composant sans cesse, puis on partage 
son Composant pour être critiqué. 


+ © Protéger ses droits 


Afin de diffuser un Logiciel il faut protéger ce qui est important en : 
® S'envoyant un recommandé électronique décrivant son Composant 
avec les sources. Le recommandé avec signature dure 10 ans. 
® Envoyant son nouveau concept que l'on compte créer dans son Logiciel 
en enveloppe SOLEAU à l'INPI. Cela ne dure que 5 ans mais est 
renouvelable. 
® En publiant un livre blanc en Dépôt Légal. 


+ © Principe 


Les sources sont accessibles à tous les développeurs participant au projet, 
grâce à un serveur de sources accessible. 


Les développeurs, à chaque fois qu'ils veulent modifier une unité, mettent à 
jour leurs unités locales, sur leur ordinateur. Puis ils modifient. 


Une fois l'unité modifiée, et après avoir testé, il est préférable de transférer, 
vers le serveur central, toutes les sources modifiées. En effet, les sources sont 
souvent imbriquées. 

Les autres développeurs accèdent aux nouvelles sources. 


- © Pour une petite équipe 


Lorsque l'équipe qui travaille sur les sources est petite, il est intéressant 
d'installer un outil de collaboration avec jeton exclusif. 


Le fonctionnement en jeton exclusif est simple : Si quelqu'un veut modifier 
une unité, il a l'exclusivité sur la modification. 

Ainsi il n'y aura pas à fusionner la même unité modifiée à deux endroits 
différents. 


Par exemple JEDI VCS est un outil collaboratif libre permettant la 
distribution de sources par jetons exclusifs. 


+ © Pour une grande équipe 


Lorsque beaucoup de développeurs participent à un projet, il convient de 
choisir un outil collaboratif permettant la comparaison et la fusion de sources. 


Le principe est simple : Quiconque peut modifier quelque source que ce soit. 


Si chacun ne modifie pas en même temps les mêmes sources, l'outil s'utilise 
simplement. 


Il arrive que certains modifient en même temps une source. Alors le premier 
qui publie ses unités n'a rien à faire. Celui qui est en retard doit fusionner ses 
sources avec celui qui a publié avant, puis tester évidemment. 


Il est préférable d'utiliser ce genre d'outils avec des alertes mails, afin que les 
développeurs soient au courant de ce qui est modifié. 


Un patch est un ajout de Code ou de Sources, s'insérant automatiquement dans 
le Code ou les Sources existantes, en fonction d'une ou de plusieurs versions 
de départ. 


En 2015, deux très bon outils collaboratifs s'appellent MERCURIAL et GIT. 
MERCURIAL utilise TORTOISE HG comme client. Il permet de réaliser des 
patches facilement, tout en distribuant les sources à beaucoup de 
développeurs. 


Les outils SVN et CVS n'ont pas autant de répondant, ni autant de possibilités 
que MERCURIAL et GIT. MERCURIAL s'utilise plus facilement que GIT, 
notamment par le fait qu'on n'a pas forcément besoin de serveur de sources. 


+ © Choisir son outil 


Un bon outil de collaboration permet de : 
® Créer des archives permettant de recréer les anciennes versions 
Communiquer facilement entre les développeurs 
Créer des patches facilement 
Créer plusieurs versions de son exécutable 
Travailler sur les différents systèmes d'exploitation 


Travailler simplement, sans avoir à se soucier des difficultés d'un 
partage 


Les outils TORTOISE sont intégrés à votre bureau. 


TORTOISE SVN et TORTOISE CVS impliquent une compatibilité de l'outil 
de programmation. 


TORTOISE HG pour MERCURIAL s'utilise facilement. 


Vous avez ci-après un exemple d'intégration d'un outil TORTOISE dans le 
bureau : 


ExteoU tToolbar 
Ouvrir dans un nouvel onglet 


Ouvrir dans une nouvelle fenêtre 


imac Ouvrir avec JEDI 
Scripts 
Couper 

newto Copier 


Créer un lien 


TntUnicod SU aduceCopy 
Copier vers 


Déplacer vers 


Mettre à la corbeille 


zeng zipfile 
Envoyer à... 
Compresser.…. 

: —— .2p.… 
CEddres Explorateur de dépôt emo-en.zip 

TortoiseHg 
Options de partage 

— . + + 2p 

ExtToo AQU Jinglib0264.zip 


Les outils TORTOISE sont intégrés au bureau graphique 


RAPID SVN sous LINUX et WINDOWS, avec WIN CVS sous WINDOWS, 
permettent de répondre au multi-plates-formes de LAZARUS. Ces outils 
graphiques sont simples d'utilisation. 


+ © Les forges 


Une forge est un serveur de sources regroupant les sources de différents 
savoir-faire, de différents Logiciels. 


Une forge partagée regroupe des sources mondiales et n'accepte que des 


sources partageables. Les licences des Logiciels de ces forges sont des 
licences Open Source. 


+ © HE Serveurs gratuits 


Il existe différentes forges à sources partagées. 


www.sourceforge.net regroupe des sources partagées. Il peut utiliser SVN, 
CVS, MERCURIAL et GIT. 


www.bitbucket.org regroupe des sources partagées. Il peut utiliser SVN, CVS, 
MERCURIAL et GIT. 


www.github.com regroupe des sources utilisant de préférence GIT. 
Il peut utiliser SVN, CVS, MERCURIAL. 


+ © HE Serveur français 


En France www.adullact.net est une forge partagée, réservée aux collectivités 
et administrations. 


En cherchant le projet libre de forge fusionforge, on trouve d'autres forges 
partagées. 


L'INRIA a mis en place un projet de regroupement de sources libres. 


+ © Astuces pour la conception 
partagée 


Tous les informaticiens RAD savent qu'il est important d'utiliser des existants. 
Seulement les existants partagés sont gratuits et donc leur partage non 
rémunéré. Une société idéale partagerait des savoirs-faire grâce à l'état-nation 
par des chercheurs. Or l'INRIA a été privatisé en 2015 et ne remplit plus cet 
objectif d'économie de travail, base de l'économie humaine. 


Pour concevoir ou améliorer un savoir-faire de composants, il faut avoir en 
tête la structure ainsi que les chemins engagés et envisagés par le savoir-faire, 
qui doivent être écrits respectivement par un automate et l'auteur du savoir- 
faire. 


Si vous voulez demander quelque chose à quelqu'un il y a le donnant-donnant 
: On aide ou on propose d'améliorer le savoir-faire. Créer une documentation 
est accessible à un débutant. C'est d'ailleurs préférable qu'un débutant crée la 
documentation. En effet, c'est quand on apprend qu'on est le plus accessible 
aux débutants. Si le wiki n'est pas disponible sur le gestionnaire de versions, 
sachez qu'il existe des wikis pour chaque outil partagé qu'utilise le savoir- 
faire. 


Quand un savoir-faire est partagé, l'auteur adore avoir des retours d'expérience 
lui permettant d'améliorer son savoir-faire. Comme tout ce qui est important 
est visible par quiconque en même temps grâce à la technique informatique, 
donner votre avis ou mieux, proposer une issue à un savoir-faire, est attendu, 
même si vous êtes débutant. 


Sachez que tous les informaticiens vont vers l'économie de travail, base de 
notre économie. Donc ne vous attendez pas à un travail peaufiné de la part 
d'un seul informaticien. Il faut obligatoirement être deux au moins pour 
réaliser une économie de travail intéressante. En effet, un informaticien qui 
sait compiler seul peut aider facilement à compiler un informaticien qui a 


compilé seul son savoir-faire. Lisez à ce sujet Henry Charles Carey et 
Robinson Crusoé. 


Pour aider un auteur de composants partagés à compiler, il suffit de s'abonner 
gratuitement à son gestionnaire de versions. Alors on compile entièrement, 
puis on efface les unités compilées et on recompile. On ajoute une issue au 
gestionnaire de versions s'il y a des problèmes. L'auteur peut alors nous 
proposer de participer à son projet en fonction de vos compétences. 
Renseignez-vous alors sur ses autres compétences, qui peuvent peut-être vous 


aider. 


Un auteur de composants s'intéresse à la technique. Le challenge technique est 
important et peut même faire évoluer un savoir-faire, afin que celui-ci gagne 
des composants. Dans ce cas, il est possible de retrouver des composants qui 
ne fonctionnent pas ou mal, parce que le spectre de compilation de l'outil est 
conséquent. 


Si vous participez à un savoir-faire partagé vous pouvez ainsi aider des 
milliers de personnes qui distribuerons leurs logiciels à des millions de 
personnes. Le logiciel partagé c'est l'association, association plus rapide que 
l'association par l'argent, car proche de la vitesse de la lumière. 


Pour améliorer des composants il s'agit de comprendre l'objet. Avoir lu un 
cours avancé de programmation de Composants Objets peut vous permettre de 
vous faire passer pour le meilleur informaticien qui soit, face à l'auteur du 
partage. 

Si vous ajoutez des composants à ce savoir-faire ce sera à vous de vous 
occuper de ces Composants. Vous pourrez alors peut-être plus tard reprendre 
en main l'ensemble du savoir-faire. Vous deviendrez l'auteur principal du 
savoir-faire, créant alors vos propres objectifs, pour peu qu'ils vous servent. 


+ © Améliorer LAZARUS 


LAZARUS est bien conçu. Les développeurs de LAZARUS vérifient la 
rapidité, la portabilité, la continuité de leur outil. Les modifications qui ne 
s'assemblent pas de la même manière que DELPHI sont des améliorations 
structurelles. Elles permettent par exemple d'améliorer la lecture d'images, de 
réutiliser des API graphiques. LAZARUS c'est une réutilisation du meilleur 
des librairies existantes. 


Seulement si on s'arrête là LAZARUS ne peut pas s'améliorer. Les 
Composants de DRA sont non seulement intuitifs, mais permettent 
d'améliorer le Polymorphisme. 


Utilisons l'objectivité. Vous voyez que les Composants LAZARUS fournis ne 
suffisent pas pour créer un Logiciel. Il est possible de participer à LAZARUS 
en traduisant un Composant Libre DELPHI vers LAZARUS. Le Composant 
peut rester compatible DELPHI grâce aux directives de compilation. Ainsi dès 
que la source diffère on ajoute une directive FREE PASCAL. 


Si votre Composant est primordial pour une utilisation standard de 
LAZARUS, vous pouvez proposer votre Composant en Patch pour 
LAZARUS. Les développeurs de LAZARUS vérifient ensuite la licence, et le 
respect de la programmation par Objets. Ensuite si le Composant est 
nécessaire au projet il est validé. 


Sinon vous pouvez diffuser votre Composant sur un site Web regroupant des 
Composants. Faites-le connaître par le réseau LAZARUS. Vous pouvez 
diffuser votre Composant grâce à onlinepackagesmanager et www.lazarus- 
ide.org. Il est nécessaire de créer un message en anglais, sur ce site web, dans 
le forum contenant les messages de "Tierce partie". 


Si votre Composant est en cours d'importation il est possible de devenir 
développeur LAZARUS. Vous devenez alors un auteur de LAZARUS. 


Il est aussi possible de faire évoluer FREE PASCAL pour qu'il utilise plus de 
machines. Vous intégrez alors un compilateur Libre à LAZARUS. Ensuite 
l'équipe LAZARUS va ajouter cette nouvelle architecture à votre IDE Libre. 


*- © Créer une fondation 


Il est constaté que ce sont les développeurs indépendants qui partagent le plus. 
Pourtant, au moment où on économise sur les budgets, la solidarité pourrait 
exister entre les PME. 


Il fut une époque où le Produit Intérieur Brut n'incluait pas les services. C'est 
l'inclusion des services dans le PIB qui a créé la bulle des Startups du web. 
Pourtant les Startups du web sont dépendantes des richesses réellement 
produites. 


Les services devraient pourtant permettre de mieux produire. Notre économie 
fonctionne vers l'utile comme cela. La plus grande richesse ce sont les 
industries. On doit les protéger. Les industries créent des emplois qualifiés. 
Elles nécessitent et créent l'éducation qui développe alors l'élève. On voit en 
ce moment des services qui se créent avec des emplois peu qualifiés. Ces 
services embauchent souvent des sur-diplômés. 


Actuellement des lobbies se mettent en placent autour des métiers nécessitant 
d'individualiser les citoyens pour se développer. Ces métiers font en général 
du trafic. En effet, selon l'économie physique, le commerce consiste à vendre 
directement, en passant par le minimum d'intermédiaires. Cela enrichit 
l'individu. 


Le trafic consiste à augmenter les prix en faisant pression sur la production, 
d'après l'économiste Henry Charles Carey. Cela contracte l'économie. On se 
sert alors de l'humain comme d'une ressource. Les métiers qui individualisent 
l'individu prennent alors de plus en plus d'importance. Cela finit par 
l'implosion de l'économie, car ces métiers font pression sur la production. 


Les citoyens et donc les entreprises se doivent d'empêcher ces trafics en 
défendant le bien commun. Cela est la fois bon pour le développement et donc 
pour l'éthique. On ne cherche pas le gain à court terme, mais la capacité a 
élaborer la société, grâce au bien commun que sont par exemple le domaine 
public et les licences Libres. 


Dans le bien commun, il y a aussi le savoir et ce qui sert à l'économie de 
travail, comme les services et industries publics. Les industries et services 
publics intégreront les métiers faisant pression sur le développement d'un 
pays. On cherche ainsi à utiliser son intelligence pour mieux produire de la 
richesse tangible. Retrouver le sens du bien commun permet à la fois de 
développer un pays afin de trouver le bonheur pour devenir ingénieux, en 
cherchant sur nos limites. 


On peut ainsi partager un savoir-faire pour créer une fondation. Il est alors 
nécessaire que des entreprises se mettent d'accord pour faire évoluer le savoir- 
faire. Une inter-dépendance entre des entreprises concurrentes peut alors se 
créer. Cela permet, en période de contraction de l'économie ou en plein 
développement, d'économiser sur le travail afin de produire de la richesse 
réelle. 


La solidarité existe réellement quand un pays se développe. Dans ce cadre on 
ne parle plus de licences libres, mais réellement du domaine public. Le 
domaine public n'existe réellement que dans les pays qui se développent, 
comme en Russie ou dans les pays asiatiques en 2015. En effet quand le 
commerce existe réellement, la population s'enrichit réellement. IL n'y a pas 
besoin de protéger des acquis. On est dans la profusion, la diversité et surtout 
l'association. La science fait alors de grands bonds en avant. La créativité est 
favorisée. 


C'est l'association et l'économie de travail qui permettent le développement. 
Notre économie consiste à associer des éléments entre eux. Cela nécessite que 
nous associons entre nous et en nous. Le domaine public et les licences libres 
permettent d'accroître l'association et l'économie de travail avec le DRA. 


Source : Les livrels et livres sur l'économie et la créativité de 
www.liberlog.fr. 
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GNU LINUX et FIREFOX démontrent la force de l'association. 


L'Objet et les animations 
CREATIVE COMMON BY NC-ND 


- © Introduction 


Nous parlons dans ce chapitre de la création d'un jeu. Mais la création d'un 
Logiciel animé fonctionne de la même manière et utilise les mêmes librairies. 


Zen GL peut facilement être intégré à Allegro ou Steam. Ainsi j'ai gardé 
l'article sur Zen GL. Steam est le plus puissant des moteurs de jeu grâce à 
GNU Linux. 


Créer un jeu ou un Logiciel animé permet de comprendre l'Objet, si on utilise 
un moteur de sprites ou un moteur 3D. Les Objets d'un jeu sont des 
représentations plus ou moins humaines de personnages, les acteurs du jeu. 
Ces Objets, pouvant devenir des personnages grâce à l'Intelligence 
Artificielle, permettent de sublimer les capacités de la Programmation Objet. 


Vous pouvez vous référer au chapitre sur L'Objet, afin d'en comprendre les 
principes. 


+ © Pourquoi créer des jeux 2D ? 


Les jeux 2D reviennent au goût du jour, avec les téléphones portables. 
LAZARUS permet de créer des jeux pour WINDOWS, GNU LINUX, MAC 
OSX, WIN CE, PALM OS, LINUX ANDROID et IPHONE, ou tout autre 
téléphone portable. En effet la plupart des téléphones portables disposent d'un 
noyau UNIX, voire d'un noyau WINDOWS. 


Un jeu créé grâce à LAZARUS est disponible sur l'ensemble des 
environnements les plus connus. 


Les jeux en 2D sont un ensemble de graphismes en 2 dimensions, bougeant 
selon les désirs du joueur. Les graphismes des jeux 2D sont appelés sprites. 


Un sprite est une image disposée dans un décor. Elle est capable ou pas de se 
déplacer. Un sprite se détruit. Il peut éventuellement toucher un autre sprite, 
être repoussé, etc. 


Il existe des créateurs de jeux nommés SCRATCH ou GAME MAKER. 
SCRATCH est libre et peut être enseigné en écoles primaires. Ces outils 
permettent de s'intéresser à la programmation. 


+ © Les jeux 2D avec STEAM 
WRAPPER 


STEAM WRAPPER pour DELPHI et LAZARUS permet de faire le lien vers 
la fameuse librairie STEAM, qui est spécialisée dans la création de jeux sur 
WINDOWS et LINUX. STEAM permet de contenir le moteur de jeux 
ZEN GL. 


ZEN GL est une librairie permettant de créer des jeux 2D. Elle gère l'écran, 
les sprites, les sons, les collisions, la gravité. Elle était disponible sur 
WINDOWS, GNU LINUX, MAC OS, i0S, ANDROID. Elle est donc 
compatible avec beaucoup de SMARTPHONES. II est aussi possible de 
facilement adapter ZEN GL à ALLEGRO. 


ZEN GL utilise l'accélération OPEN GL, gourmande en courant mais 
puissante, qui permet l'accélération graphique par un processeur vidéo 3D 
compatible OPEN GL. 

Nous utilisons avec ZEN GL peu de librairies LAZARUS. Nous utilisons 
avant tout les librairies de ZEN GL. 


La librairie ZEN GL peut être utilisée sans LAZARUS, avec seulement le 
compilateur FREE PASCAL. Elle peut aussi être utilisée avec DELPHI, GCC 
et VISUAL STUDIO. 


Il est possible avec ZEN GL de créer des jeux pour les SMARTPHONES 
utilisant un processeur compatible OPEN GL. 


Les Objets peuvent être utilisés au sein de ZEN GL, mais vous pouvez faire 
sans le moteur de sprites Objets. Si vous faites sans l'Objet, votre Logiciel se 
complexifiera difficilement. 


+ © ZEN GL Sous GNU LINUX 


STEAM WRAPPER est ici en 2018 : 
https://github.com/thecocce/steamwrapper 


Après avoir téléchargé STEAM WRAPPER grâce à TORTOISE HG, installez 
les trois DLL de STEAM WRAPPER dans l'exécutable de votre jeu ou dans 
WINDOWS. 


Téléchargez les sources de lien ZEN GL ici : 
https://bitbucket.org/matthieugiroux/zensteam/downloads/ 


+ © Un projet de jeu 


Il est préférable de reprendre un projet de démonstration de ZEN GL. Il est 
disponible dans les exemples LAZARUS, sur www.liberlog.fr. 


Redirigez correctement les "chemins" vers ZEN GL, dans les "Options" du 
projet. 


Copiez, à partir des exemples sur www.liberlog.fr, les dossiers "Images" et 
"Sons", vers le dossier de votre projet. 


Voici un exemple de projet _: 


program Multi; 


{$I definitions.inc} 
{$SIFNDEF FPC} 
{$R MULTLres} 
{$ENDIF} 


uses 
Main in 'Main.pas' {MainForm}, 
{$SIFNDEF STATIC} 
zglHeader 
{$ELSE} 
zgl_main, 
zgl_screen, 
zgl_window, 
zgl_timers, 
zgl_keyboard, 
zgl_render_24d, 
zgl_fx, 
zgl_textures, 
zgl_textures_png, 
zgl_textures_jpg, 
zgl_sprite_2d, 
zgl_primitives_24d, 
zgl_ font, 
zgl_text, 
zgl_math_2d, 
zgl_utils, 
zgl_ Mouse, 
zgl_sound 
{$ENDIF} 


// Name: Initialisation 
1/ Création de la fenêtre de jeu 


Begin 
{$IFNDEF STATIC} 
zglLoad( libZenGL ); 
{$ENDIF} 


randomize(); 

timer_Add( @TimerGame, 16 }; 

zgl_Reg( SYS_LOAD, @lnit }; 

zgl_Reg( SYS_DRAW, @Draw ); 

zgl_Reg( SYS_EXIT, @Quit }; 

I EN: Enable using of UTF-8, because this unit saved in 
UTEF-8 encoding and here used 

1! string variables. 

zgl_Enable( APP_USE_UTPS j; 

wnd_SetCaption( 'Casse-Briques' ); 


wnd_ShowCursor( TRUE j; 


scr_SetOptions( EcranX, EcranY, REFRESH MAXIMUM, 
FALSE, FALSE }; 


zgl_Init(); 
End. 


Ne compilez pas : II manque Iles procédures "TimerGame”, "Init”, "Draw", 


"Quit". 


Il est nécessaire de laisser les commentaires en anglais. Seuls les 
commentaires contradictoires doivent être remplacés. 


Vous voyez que votre jeu peut être utilisé avec seulement l'unité "zglHeader”. 
Cette unité permet de charger la librairie ZEN GL en dehors de l'exécutable. 
ZEN GL est alors dans une librairie exécutable, en DLL sur WINDOWS ou 


en SO sous LINUX. On utilise uniquement cette librairie en 2018. Il faut donc 
désactiver la définition STATIC. 


“randomize" initialise le hasard avec la procédure "random". 
La procédure ajoutée par "timer_Add" est le Timer, appelé régulièrement. 


Les procédures ajoutées par "zgl_Reg” permettent : 
® D'initialiser les sprites et les sons avec "SYS_LOAD"!. 
® De dessiner les sprites avec "SYS_DRAW". 
® De libérer les variables affectées avec "SYS_EXIT" en quittant. 


"zgl_Enable" vous permet d'ajouter des propriétés à votre jeu. Ici nous 
utilisons les caractères étendus UTF8 de LINUX et LAZARUS. 


"scr_SetOptions" vous permet de modifier l'affichage à l'écran. Par exemple 
vous pouvez paramétrer le mode plein écran avec le quatrième paramètre. 


"zgl_Init” démarre le jeu et appelle la procédure d'initialisation. Ensuite le 
Timer est activé. Les procédures ou fonctions placées ensuite seront exécutées 
à la fermeture du Logiciel. 


Créez une nouvelle unité nommée "Main", intégrée au projet, contenant la 
même clause "uses" que celle montrée ci-avant. 


_Après les unités, dans "interface", ajoutez ces déclarations de procédures : 
{ ZEN GL Méthodes } 
procedure Quit; 
procedure Draw; 
procedure Init; 
procedure TimerGame; 


{ Procédures de jeu appelée par le timer } 
procedure SceneFlipping; 
procedure SceneMain; 


{ Procédure de nouveau jeu } 
procedure StartSceneMain; 
{ Procédure de fin de jeu } 
procedure EndSceneMain; 


"TimerGame" appelle "SceneFlipping" sous condition, qui n'appelle pas 
forcément "SceneMain”. 


"StartSceneMain" permet d'initialiser les variables de jeu, comme un 
constructeur. Son antagoniste est "EndSceneMain”. 


_Dans votre unité Main, ajoutez ces constantes : 
const 
{$SIFNDEF FPC} 
DirectorySeparator = ‘\'; 
{$ENDIF} 
{Constantes globales } 
ScoreVie —=1000; 
AjouteVie = 16; 
EcranX=640; 
Ecran Y=400; 


{Constantes liées aux niveaux } 
Fin = 50; 

{Constantes liées à l'écran } 
BitCompte = 16; 
LimiteXImages = 100 ; {94;} 
LimiteYImages = 50 ;{47; } 


{Constantes liées aux balles } 


Lente —=20; //Vitesse lente 
VitesseMax = 60; 

ZBalles 3; 

MaxiBalles = 60; 

DecalX =; 

DecalY  =2; 


{Constantes liées aux briques } 


ZBRiques = |; 
ZItems =0; 
BriquesX = 8; 
BriquesY = 30; 
NeCasse =l; 
Meurt =; 


TempsChange = 30000; 
TempsAccelere = 20000; 
Tempsinversion=5000; 
TempsImmobile=3000; 


{Constantes liées au joueur } 
ZJoueurs =72; 
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JoueurBasX = EcranX/2-40; 
JoueurBasY = Ecran Y-30; 
BougePaletteX= 30; 


{Constantes liées aux sprites } 


PCasse = 100; 
Vitesse = 20; 
Ralenti = 18; 


dir_Images = ‘Images’ + DirectorySeparator; 
dir_Menus = "Menus" + DirectorySeparator; 
dir_Niveaux = 'Niveaux' + DirectorySeparator; 
dir_Data ='DATA' + DirectorySeparator ; 
dir_Items = ‘Ttems' ; 


NbBriquesX = 20; {12;} 
NbBriquesY = 20; {14;} 
FinCouche = 5; 


BriqueMinX = 32; 
BriqueMinY = 20 ; 


BBase =; 
TempsEnvoi = 600; 
BSpeedUp = 8; 


BSpeedDown = 9; 
BIndestructible = 2; 


FinBriques = 28; 
ImageBalle = ‘balle’: 
ImageBrique= brick"; 
ImagePalette= ‘palette’ ; 
ImageExtension = ".png'; 
SonExtension ='.wav'; 


MaxBriques = 28 ; 


MaxCouche = 3; 


MOVECOUNT_WITHOUT_TIME = 1/100 ; 


Certaines de ces constantes sont compréhensibles. II y a la taille de l'écran, 


utilisée dans l'initialisation de l'écran. Il faut donc relier le projet à notre 
nouvelle unité. 


A la fin la constante MaxCouche permet de créer des couches de briques dans 
un tableau. Il est préférable d'utiliser une constante, comme fin de tableau, afin 
d'optimiser le Code. 


La constante "MOVECOUNT_WITHOUT_TIME" permet d'ajuster la vitesse 
des sprites par rapport au timer ZEN GL, exécuté régulièrement. 


+ © M Les types non Objets 


bi imolif . 


type TIndice = 0..3; 
TCases =ARRAY[0.MaxCouche] of TIndice; 


TInputType = (itinactive, itMouse, itKeyboard1, itKeyboard?, 
itJoystick1, itJoystick2); 

TBalleModif = ( bmBalleDessus, bmAccelere, bmRalenti, 
bmPlomb, bmColle, bmNormal, bmFolleHautBas, bmFolle, 
bmFolleGaucheDroite, bmPlusGrosse, bmMoinsGrosse); 

TPlayerModif = ( pmErased, pmEnlever, pmAfficher, 
pmEnvoiBalle, pmBouge ): 

TModeBrique = ( mbAucun, mbMeurt ); 


"Tlndice" représente les différents numéros de briques, dont l'indice 0 
n'indiquant aucune brique. Ces numéros permettent d'aller chercher les images 
des briques. 


"TCases" est le tableau contenant les briques à afficher après que la première 
brique soit cassée. Ce tableau n'est pas dynamique, pour ne pas avoir à le 
redimensionner. 


Les types énumérés représentent différents états. Ils permettent de ne pas avoir 
à utiliser de constantes, tout en sécurisant la création de Code. 


+ © M Les Objets ZEN GL 


La programmation Objet permet de modéliser les acteurs du jeu. Aïnsi vous 


pourrez améliorer facilement ce jeu, pour qu'il devienne complexe. 


Les Objets suivants peuvent être mis dans la partie "implementation" des 
sources, afin de ne pas surcharger l'exécutable. En effet les déclarations dans 


"interface" ajoutent du Code déclaratif, à utiliser dans d'autres unités, ce que 
nous ne voulons pas. 


Nous déclarons d'abord la classe "TBalle", en abstrait, afin de pouvoir 
l'utiliser au sein des autres types, avant de déclarer réellement "TBalle" : 

type 

TBalle = class; 


{ TCollisionSprite } 


TCollisionSprite = class(T AnimatedSprite) 
public 
procedure CollisionBalle ( const Balle : TBalle; const 
AllowPlomb : Boolean ); virtual; 
end; 


Avec cet Objet nous surchargeons un Objet de base de l'unité 
"zengl_sprite_image". 


On fusionne des possibilités en les centralisant dans quelques Objets, qui sont 
utilisés ensuite. Par exemple une balle sera toujours capable de réagir à 
d'autres sprites, dans un casse-briques. 


ua condo ob tdiene 
1! Sprite du ou des joueur 
{ TPlayerSprite } 


TPlayerSprite = class(TAnimatedSprite) 
private 
Deplacement1,Deplacement2,Deplacement3 :EXTENDED:; 
BalleModif : TBalleModif; 
ControlX,ControlY, 
Mode, NoPalette : Integer; // Mode (mort vivant touché) 
Controle : TInputType ; 
Player Modifs : set of TPlayerModif; 
Intervalle, // Intervalle de rebondissment des balles 
CompteEnvoi, 
Compteurlnversion, 
CompteurTire, 
Comptelmmobile, 


PaletteEnCours, 

Inversion, 

VitesseBalles : integer; 

NoJoueur : Integer ; 

procedure Erase; 

procedure EnvoiBalle; 

procedure UneCollisionX ( const Sprite : TSprite ; var Done: 
Boolean); 

procedure ChangeVitesses( const Vitesse : integer); 

function InitPos ( const TheCoord : Double ; const NewCoord 
: Double ):Double; 

procedure Deplace(const InputCoord: Double); 

public 

constructor Create( const AParent: TSpriteEngine; const 
Apparaitre : Boolean; const Controle : TInputType); overload; 
virtual; 

destructor Destroy; override; 

1/ Methodes abstraites 

procedure BallesModif; overload; virtual; abstract; 

procedure CreatePlayer; virtual; abstract; 

// Methodes implémentées 

procedure SetPalette; virtual; 

procedure DoMove(MoveCount: Double); override; 

procedure DetruitJoueur; virtual; 

procedure Cree; virtual; 

procedure BallesModif ( const Modif : TBalleModif ); 
overload; dynamic; 

procedure UnMouvement; dynamic; 

procedure UnMouvementX; dynamic; 

procedure BallePlus; dynamic; 

procedure SetBalleColle ( const UneBalle : TBalle ); virtual; 

procedure SetBalleCollePosition ( const UneBalle : TBalle ); 
virtual; 

procedure Controleur(Control : TInputType),; virtual; 

procedure AppuieGaucheDroite (const 
ToucheAEnfoncerGauche , ToucheAEnfoncerDroite : Byte ):; 
virtual; 

procedure AppuieButton ( const ToucheAEnfoncer : Byte ): 
virtual; 

procedure ErasePlayer (); virtual; 

end; 


Cet Objet représente le joueur, où qu'il soit. En effet il existe, un peu plus loin, 
un autre Objet joueur, héritant de ce premier Objet, qui lui se place 


automatiquement en bas. 


Nous pourrions représenter cet Objet avec un schéma UML, possédant alors 
des attributs ou variables avec des méthodes. Ce schéma permettrait de 
comprendre le jeu globalement. Quant aux détails, on s'en occupe lorsqu'il est 
nécessaire de les comprendre, en ajoutant des commentaires. 


Vous voyez que les méthodes publiques ont des déclarations supplémentaires. 
La classe "TPlayerSprite" est abstraite, car elle possède des méthodes 
abstraites. Elle ne peut être utilisée telle quelle, sinon cela provoque une 
erreur à l'exécution, si ces méthodes abstraites ne sont pas surchargées dans 
son descendant. 


Nous ne vous demandons pas de tout comprendre. Par ailleurs, même moi, qui 
ai créé entièrement le jeu, ne comprend le jeu qu'en scrutant les sources. 


Que faut-il comprendre ? 


Dans chaque Objet du jeu, on surcharge la méthode "DoMove". Cette 
méthode permet de déplacer le sprite à un instant donné, par la méthode 
"Move" du moteur de sprites. La plupart des autres méthodes, mis à part le 
constructeur, sont dépendantes du mouvement du sprite. 


Lorsque j'ai créé cet Objet, j'ai pensé à la modularité de cette création, 
permettant de scinder les sources afin d'éviter le copier-coller, pour faciliter la 
programmation. Il est plus facile de scinder les sources avec l'Objet, si on 
utilise les différentes facultés de la programmation Objet. 


En scrutant cette déclaration précédente, on voit qu'il existe une variable 
"Mode" déclarée en entier. Ce mode pourrait être déclaré en énuméré, afin 
d'éviter les erreurs. 


Voici l'Objet représentant la balle : 
{ TBalle } 


TBalle = class(T AnimatedSprite) 
private 

DecalePalette, 

Vitesse, 

Accelere, 

NoBalle, 

BougeX,BougeY, 

Change :integer; 

Mode :integer; 


Activite : set of TBalleModif;// Toute l'activité de la balle 

Grosseur : Integer ; 

function PerdJoueur ( const Perdu : Boolean ):boolean; 

procedure Limites ( var Bouge : Integer ); 

procedure ChangeVitesse; 

procedure BalleModif; 

procedure SetImageGrosseur; 

procedure SetImagePosition; 

public 

procedure DoMove(MoveCount: Double); override; 

procedure ChangeUneDirection ( const Decalage : Double ); 
virtual; 

1/ Gestion des collisions 

procedure BeforeCollision ( const Sprite: TCollideSprite ); 
override; 

procedure DoCollision(const Sprite: TCollideSprite; var 
Done: Boolean); override; 

procedure CollisionBalle ( const Balle : TBalle ); virtual; 


procedure ColleBalle; 
procedure Envoi; virtual; 
constructor Create ( const AParent: TSpriteEngine; const X, Y 
: Double ); overload; 
destructor Destroy; override; 
procedure Show ; virtual; 
1/ Détruit la balle 
procedure Destruction; 
end; 


ABalle = TBalle; 


C'est ZEN GL qui détruit les sprites avec la variable "kill", que nous affectons 
avec la méthode "Dead". J'ai créé cette méthode dans ma surcharge du moteur 
de sprites ZEN GL, afin d'être compatible avec une autre librairie plus aboutie 
à l'époque, mais abandonnée : Cette librairie de jeu 2D s'appelait ANDORRA 
2D. Garder la compatibilité me permet de réutiliser mon jeu. 


Mes critiques sur l'ancien moteur m'ont permis d'optimiser le nouveau, si bien 
que ZEN GL n'est pas entièrement compatible avec ANDORRA 2D. 


Certaines méthodes vous serviront, plus tard, à améliorer le casse-briques. 
Pour l'instant la balle de ne peut pas grossir. Mais il est possible 
d'implémenter cette possibilité, grâce à la méthode "SetImageGrosseur". 


A la fin nous créons un pointeur de balle, afin de manipuler la balle. Référez- 
vous à la fin du chapitre sur la Programmation Procédurale Avancée. 


Voici le joueur du bas, le seul joueur disponible pour l'instant : 
{ TPlayerBas } 


TPlayerBas = class(TPlayerSprite) 
public 
procedure SetBalleColle ( const UneBalle : TBalle }; 
override; 
procedure UnMouvement; override; 


procedure SetBalleCollePosition ( const UneBalle : TBalle ); 
override; 


/J Gestion des collisions 
procedure DoCollision ( const Sprite: TCollideSprite; var 
Done: Boolean); override; 
procedure SetPalette; override; 
procedure CreatePlayer; override; 
destructor Destroy; override; 
end; 


Cet Objet hérite de l'Objet créé précédemment. Nous surchargeons certaines 
méthodes abstraites, comme "BallesModif", parce qu'il est nécessaire de 


centraliser des sources gérant la balle, dans l'Objet parent, afin d'éviter le 
copier-coller, nuisible au maintient du Logiciel. 


Voici ci-après l'Objet créant les sprites des briques : 
{ TBrique } 


TBrique = class(TCollisionSprite) 

private 

Cases : TCases,; 

NoBrique : Array [ 0 .. MaxCouche ] of TIndice; 

Mode : TModeBrique; 

procedure Touche; 

procedure Destruction; 

procedure DoMove(MoveCount: Double); override; 
public 

procedure CollisionBalle ( const Balle : TBalle ); overload; 

procedure InitBrique ( const DesCases : TCases ):; 

constructor Create ( const AParent: TSpriteEngine; const 

DesCases : TCases ); overload; 

destructor Destroy ; override; 

end; 


Dans votre unité "Main", vous pouvez maintenant copier-coller le reste du 
Code source, afin de le comprendre. 


+ © Conclusion 


Lorsque l'on scrute du Code source, il faut penser au Code source central, puis 
aux sources appelées moins souvent. Cela permet de trouver plus facilement 
les Bogues. 


Regardez bien la gestion du Timer ZEN GL, avec les méthodes de 
mouvement de chaque Objet, appelées par le moteur de sprites, nommé 
"SpriteEngine". Ces procédures sont centrales. 


La surcharge m'a permis de : 
Éviter le copier-coller. 
® Utiliser une librairie existante : ZEN GL. 
® D'améliorer la librairie existante, en séparant le jeu d'une nouvelle 
unité. Les améliorations que j'ai portées à ZEN GL permettent 
d'accélérer la création de jeux. 
® Créer de nouveaux Objets indépendants, utilisant du Code centralisé. 


La surcharge permet d'améliorer un Objet. Pensez bien à comprendre l'utilité 
de la surcharge, permettant de créer de nouveaux Objets, afin d'améliorer le 
jeu. Les réflexions sur les Objets de jeux sont très proches de l'humain. Le 
Code doit cependant être optimisé et restructuré. 


Il existe toutes sortes de projets de jeux 3D disponibles en version libres 
comme GL Scene ou CASTLE ENGINE, permettant de créer des petits jeux 
3D. Cette librairie a besoin de développeurs. Des moteurs 3D payants 
posséderont en général plus de possibilités, car les évolutions y sont financées 
plus facilement. 


La persistance d'un Logiciel 
CREATIVE COMMON BY NC-ND 


+ © Introduction 


Un Logiciel persistant sauve certaines de ses informations dans des fichiers, 
afin de garder ses informations pour les réutiliser plus tard. 


.- © Les fichiers "ini" 


LL 


Les fichiers "ini" sont des fichiers créés à l'origine sur WINDOWS. Les 
fichiers avec l'extension ".ini" permettent de sauvegarder des informations de 
votre Logiciel, afin de les réutiliser plus tard et si l'on souhaite sur l'ensemble 
des plates-formes. 


LAZARUS possède une gestion de fichiers INL permettant de sauvegarder 
certaines de vos variables de votre Logiciel. Les paquets EXTENDED 
permettent d'automatiser la création et le renseignement du fichier INI. 


Un fichier ".ini" sauve en général des informations de personnalisation de 
l'Application, comme l'accès aux données ou tout Composant visuel avec 
OnForminfolni de EXTENDED. 


Sur WINDOWS, n'utilisez surtout pas la base de registre pour sauvegarder 
votre application. En effet, une base de registre trop lourde ralentit cet 
environnement. En plus votre Logiciel ne sera pas adaptable sur d'autres 
plates-formes. Utilisez les fichiers INI qui permettent avec LAZARUS d'aller 
sur les autres plates-formes. 

Créez une "Nouvelle Application" avec cette fiche grâce à LAZARUS : 


Fiche -) (5) {£5$ 


Une fiche non redimensionnable 


Vous pouvez utiliser le bouton de fermeture que nous avons créé 
précédemment. Renseignez avant tout la propriété "Name" de vos 


Composants. 


R # l'é F4 t "O Cl "1 du t "Sauver" : 
const CST_ EXTENSION INI = 'ini' ; 


implementation 
uses Inifiles; 


procedure TMaFiche.SauverChange(Sender: TObject); 
var Ini_Inifile : TInifile ; 
begin 
Ini_IniFile := nil; 
try 
Ini_IniFile := TInifile.Create ( Application.ExeName + 
CST_EXTENSIONINTI ):; 
Ini_IniFile. WriteString(Self.Name,MonNom.Name,MonNom.Text); 
Ini_IniFile.UpdateFile; 
Except 
On E:Exception do 
Showmessage (‘Impossible d'écrire dans le fichier + 
Application.ExeName + CST_EXTENSIONINI 
+":+#13#10 + E.Message ) ; 
End; 
Ini_IniFile.Free ; 
end; 


Ici nous écrivons dans un fichier, en le créant s'il n'existe pas. Une gestion 
d'exception est nécessaire, car nous gérons une entrée/sortie qui ne marchera 
pas à chaque fois. 


L'Objet gérant le fichier INT ” Ini_IniFile" est initialisé à "nil", afin de le 
libérer éventuellement par sa méthode "free". En effet, nous créons le fichier 
"ini" en créant l'Objet "Ini_IniFile". Il y a donc gestion d'entrée/sortie après la 
création de l'Objet ” Ini_IniFile”. 


La méthode "free" accepte que son Objet soit à "nil". Si l'Objet est à nil rien 
n'est fait. 


Si on ne peut créer le fichier "ni", un message est déclenché. Il contient le 
nom du fichier en erreur, ainsi que le message d'erreur. L'utilisateur peut alors 


résoudre le problème. 


Si aucune erreur ne se produit, alors le fichier contenant le nom de votre 


exécutable plus "ini" est créé. Si vous avez renseigné les noms de 
_Composants, il contient par exemple ceci : 
[MaFiche] 

MonNom=CONSTANT 


"CONSTANT" est le nom qui a été renseigné par l'utilisateur. Il peut être 
remplacé par l'utilisateur. 


Si on modifie le nom du Composant ou de la fiche les données sont ajoutées 


dans le fichier ".ini”. 


[MaFiche] 
MonNom=CONSTANT 
MonNomModifie= CONSTANT 
[MaFicheModifie] 
MonNom=CONSTANT 


Vous voyez des informations redondantes. 


Le fichier "ini" doit alors être effacé, en perdant ou pas les données 
sauvegardées. En effet il est possible de charger le fichier "ini", puis de 


l'effacer, puis de le sauvegarder avec les nouveaux noms modifiés. 


Étudions cette ligne : 
Ini_IniFile.WriteString(Self.Name,MonNom.Name,MonNom.Text)| 


La méthode "WriteString", de l'Objet de type "TIniFile”, écrit une chaîne dans 
le fichier ".ini”. 


Le premier paramètre de la méthode est le nom de section. Vous pouvez le 
vérifier, en tapant avec le curseur entre les parenthèses, simultanément sur 
"Ctrl" puis "Shift" puis espace. Le nom de section est le nom du Composant 
fiche. C'est le nom entre crochets dans le fichier INT. 


Le nom d'une valeur est le deuxième paramètre. IL est suivi de sa valeur de 
type chaîne pour la méthode "WriteString". Il existe aussi d'autres méthodes 
commençant par "Write", que vous pouvez trouver en tapant simultanément 
sur "Ctrl" puis espace. 


" 


existe, utilisez-le pour retrouver les données 
'ÉvÉ "OnShow" de votre fiche : 
procedure TMaFiche.FormShow(Sender: TObject); 

var Ini_Inifile : TInifile ; 

begin 


Maintenant que le fichier "ini 


Ini_IniFile := nil; 
try 
Ini_IniFile := TInifile.Create ( Application.ExeName + 
CST_EXTENSION_INT ); 
MonNom.Text := 
Ini_IniFile.ReadString(Self.Name,MonNom.Name,MonNom.Text); 
Except 
On E:Exception do 
Showmessage (‘Impossible de lire le fichier " + 
Application.ExeName + CST_EXTENSIONCINI + ""+#13#10 + 
E.Message ) ; 
End; 
Ini_IniFile.Free ; 
end; 


Cette méthode permet de lire dans le fichier INI, de la même manière qu'elle a 
écrit dans le fichier. Ainsi vous retrouvez le nom saisi, après avoir cliqué sur 
le bouton. 


+ © M Exercice 


Il existe deux évolutions à effectuer sur ce Logiciel. Tout d'abord, il est 
possible de sauvegarder le fichier ".ini”, sans avoir à utiliser le bouton 
"Sauver". On sauve à la fermeture du Logiciel. On renseigne l'événement 
"OnClose" de la fiche. 


Ensuite on voit des informations redondantes. Il est possible de centraliser 
l'Objet ” Ini_Inifile” au sein de l'Objet "MaFiche”. Aïnsi on enlève la 
déclaration de variable "Ini_File : TIniFile", dans chaque méthode. 


Testez alors si "Ini_File” existe déjà. Ce test peut être centralisé dans une 
seule méthode. 


Renseignez à nil "Ini_ File" uniquement dans l'événement de construction 
"OnCreate”, de la fiche. L'Objet est alors créé sur demande. Cela permet de ne 


PAL] 


pas forcément utiliser le fichier ".ini”. 


La destruction de l'Objet ‘"Ini_ File" se fait alors dans l'événement de 
destruction "OnDestroy" de la fiche. 


Réalisez ce Logiciel. 


Vous pouvez trouver un résultat plus abouti de cet exercice dans le 
Composant TOnFormiInfolni du projet "EXTENDED" sur INTERNET. 


.- © Les fichiers ”.csv" 


Nous pouvons aussi enregistrer plusieurs noms de type identique dans un 
fichier. 

Les fichiers ".csv" servent à exporter ou importer des données d'autres 
exécutables. 


+ © M Exercice 


Sauvegardez votre premier exercice. 
Remplacez le "TLabel" et le "TEdit” par un "TStringGrid" : 


RSS ee UN, OR ROC RE SES D ST NE TS 


CTI SIRET IT CE 0 0 LE 5 5 5 


RES RE re ae a EE ES 5 5 
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DROLE PPS DSP "br Por rer Pire 
se er 


Modifiez la propriété "Columns" pour afficher le titre "Noms" 


Sur le TStringGrid renommé dans l''Inspecteur d'Objets”, allez dans 
"Options", puis rendez éditable la grille. 


NS 


Ajoutez la colonne “Prénoms”. Enlevez la colonne grise à gauche avec la 


x 


propriété "FixedCols" à 0. Vous pouvez adapter la taille des colonnes 
automatiquement, avec la propriété "AutoFillColumns" de la grille. 


Si nous sauvions cette grille dans un fichier "ini", nous devrions soit attribuer 


un nom de case à chaque case sauvegardée, soit sauver toute la colonne 


"Noms" dans une seule valeur. 


Ces deux façons de procéder nous seraient coûteuses, si nous ajoutions 
d'autres colonnes à sauvegarder. Soit il y aurait beaucoup de noms et valeurs 
dans le fichier "ini", soit les colonnes pourraient se décaler, avec des types de 
colonnes mal gérés. 


Les fichiers ".csv" ont été conçus pour palier à ce problème. 


Un fichier CSV est un fichier de chaînes contenant des colonnes et des lignes. 
Un fichier CSV est un fichier texte qui sépare les colonnes de son tableau par 
un ";" ou une ",”. 

Le "TCSVDataset" est descendant de "TDataset”. Les "Datasets" sont des 
Composants reliés à des fichiers voire un Système évolué de Gestion de 
Données. Certains peuvent même utiliser le réseau, pour chercher des 
informations persistantes. 


En général, les "Datasets" peuvent être utilisés avec des Composants dont le 
nom commence par "TDB". Ces contrôles de données simplifient la 
persistance de votre Logiciel. Ils possèdent, pour certains, des fonctions et 
propriétés simplifiant leur utilisation. 


Le Composant "TCSVDataset" permet d'exporter des données, vers un fichier 
CSV. Il n'est pas utilisable aussi facilement qu'un simple Composant de 
données. Le "TCSVDataset" ne peut s'utiliser facilement avec les Composants 
visuels commençant par "TDB". 


Le "TDBGrid” s'utilise avec d'autres descendants de TDataset. Vous pouvez 
améliorer le projet LAZARUS avec un "Dataset” modifiable pouvant être 
utilisé avec les contrôles de données. 

Il existe ce genre de Composant sur lazaruscomponents.com. Vous pouvez 
trouver le Composant TJvCSV et sa suite de Composants visuels. 


Nous allons remplacer les méthodes créées précédemment. La sauvegarde a 
permis de garder l'exercice précédent. 


Vous pouvez utiliser le refactoring ("Retravailler") pour modifier votre 
exercice précédent. Sinon il est possible d'utiliser le remplacement de chaînes, 
en vérifiant ce qui est remplacé. 


Ajoutez le Composant TCSVDataset à votre fiche. Renommez le selon le 
Code Source ci-après. 
Créez, dans la propriété "FieldDefs", les champs chaînes "Nom et "Prenom". 


Créez, dans la propriété "Schema", la ligne "Nom,Prenom". Cela va créer le 
fichier CSV. 


Normalement, on charge la grille lorsque la fenêtre s'ouvre pour la première 


fois. Puis on sauve dans le fichier les informations de la grille, à la fermeture 
ul iciel. R . l'évé "OnSl w' ici : 


const CST_ EXTENSION _ CSV = 'ccsv'; 
CST_FIELD NOM = 'Nom'; 
CST_ FIELD PRENOM = ‘Prenom '; 


implementation 


procedure TMaFiche.FormShow(Sender: TObject); 
begin 
1/ On cherche ou crée le fichier CSV 
DataSetNoms.FileName := Application.ExeName + 
CST_EXTENSION_ CSV; 
try 
/J Un Dataset s'ouvre pour lire et écrire les données 
DataSetNoms.Open:; 
Except 
// I s'agit d'une entrée/sortie donc on gère les exceptions 
on e:Exception do 
Begin 
ShowMessage (‘Impossible d'ouvrir le fichier CSV : "+ 
E.Message ); 
Exit; 
end; 
end; 
1/ Le with permet de travailler au sein du SdfDataSet 
with DataSetNoms do 
try 
1/ On adapte la grille au fichier CSV 
if Noms.RowCount < RecordCount Then 
Noms.RowCount := RecordCount; 
1J On se place au début 
First; 
// Tant que la End Of File n'est pas atteinte on est dans la 
boucle 
while not EOF do 
Begin 
1/ Affectation de la grille 
Noms.Cells [ 0, RecNo - 1 ] := Fields[0].AsString; 


Noms.Cells [ 1, RecNo - 1 ] := Fields[1].AsString; 
// Enregistrement suivant 
Next; 

end; 


Except 
// I s'agit d'une entrée/sortie donc on gère les exceptions 
on e:Exception do 
Begin 
ShowMessage (‘Impossible de lire le fichier CSV : "+ 
E.Message ); 
Exit; 
end; 
end; 
end; 


Il est à noter que "RecordCount" doit être utlisé avec modération. Préférez 
"IsEmpty" à "RecordCount=0", car "RecordCount" compte le nombre 
d'enregistrements de votre Dataset. 


Vous voyez que cette Source tient difficilement sur une seule page. Cette 
Source écrite est difficilement testable et gérable. Nous ne pouvons créer que 
peu de jeux de tests unitaires. 


Créez deux méthodes à partir de cette Source. L'une sauvegarde les noms de 
colonnes, l'autre sauvegardant les lignes. N'oubliez pas d'utiliser la déclaration 
protégée des pointeurs, avec le mot réservé "const", pour vos paramètres de 
méthodes. 


Exemple : 
procedure TMaFiche.HllGrid ( const sdf_Data : TCSVDataset 
» 

Begin 
/J Le with permet de travailler au sein du SdfDataSet 
with DataSetNoms do 
try 
11 On adapte la grille au fichier CSV 
if Noms.RowCount < RecordCount Then 
Noms.RowCount := RecordCount; 
1J On se place au début 
First; 
/J Tant que la End Of File n'est pas atteinte on est dans la 
boucle 
while not EOF do 


Begin 
1 Affectation de la grille 
Noms.Cells [ 0, RecNo - 1 ]: 
Noms.Cells [ 1, RecNo - 1 ]: 
/J Enregistrement suivant 
Next; 

end; 


=Fields[0].AsString; 
=Fields[1].AsString; 


Except 
I s'agit d'une entrée/sortie donc on gère les exceptions 


on e:Exception do 
Begin 
ShowMessage ("Impossible de lire le fichier CSV : "+ 
E.Message ); 
Exit; 
end; 
end; 
end; 


Utilisez "Ctrl" puis "Shift" puis "C", pour renseigner votre déclaration de 


méthode dans la fiche. 


R Li l'é 4 t "O CI " del f l | 
: TObject; var 


procedure TMaFiche.FormClose(Sender: 
CloseAction: TCloseAction); 
var li_i : Integer; 
begin 
1J Avec le SdfDataset 
with SdfDataSetNoms do 
Begin 
11 On efface les anciennes colonnes 
1/ Le SdfDataset ne gère pas l'édition 
First ; 
while not EOF do 
Delete; 
11 On remplit le fichier CSV 
for li_i := 1 to Noms.RowCount -1 do 
Begin 
1 Insertion car "Edit" ne marche pas ici 
Insert; 


// On affecte le nom et le prénom 
SdfDataSetNoms.FieldByName(CST_FIELD_NOM). Value 


= Noms.Cells [ O, 11 |; 
SdfDataSetNoms.FieldByName(CST_FIELD_PRENOM).value 


= Noms.Cells [ 1, 1i_1 ]; 
/J Validation de la ligne 
Post; 
end; 
1! Validation du fichier 
Updated; 
end; 


end; 


Cette Source produit ce genre d'exemple de fichier CSV, créé dans votre 
2 . xéntable : 

Nom,Prenom 

CONSTANT Philippe 
DUPONT Julien 
BARBIER.Lucien 
PHILIPPE,Catherine 


+ © M Exercice 


Permettez l'Ajout de lignes dans la grille de la fiche. 


° © M Correction 


Il fallait ajouter cet événement Click ou Change à un bouton : 


procedure TMaFiche.AjouterChange(Sender: TObject); 
begin 

Noms.RowCount := Noms.RowCount+1; 
end; 


+ © M Exercice 


Démarrez le Logiciel et testez-le. Améliorez-le en permettant une suppression 
de ligne et une création de fichier CSV. 


° © M Correction 


Utilisez la méthode "DeleteColRow" et la propriété "Row" de votre 
StringGrid. Testez. 


. © Les arborescences 


+ © M Les fichiers JSON 


Les fichiers JSON sont des fichiers permettant de sauvegarder des arbres. Ils 
possèdent le minimum d'informations nécessaires à la création de votre 
arborescence. 


Il existe un projet JSON au sein de LAZARUS. 


° © M Les fichiers XML 


Les fichiers XML sont des fichiers permettant de sauvegarder des arbres et des 
pages Web, tout en les programmant grâce à un fichier décrivant leur 
structure. 


Ils possèdent beaucoup d'informations. Ils sont donc très lourds. Les fichiers 
XML sont intéressants avec un outil de complétion XML. 


Les fichiers XML sont à créer lorsqu'on veut rapidement définir des entités, ou 
bien lorsqu'on veut que son Logiciel lise facilement des versions plus récentes 
d'un fichier. Cependant, il faudra à ce moment là ne pas modifier 
l'arborescence du fichier, seulement ajouter dans l'arborescence. 


Les définitions sont dans les fichiers DTD, simples, ou dans les 
XML Schemas, lourds, définissant mieux des types. 


.- © Les fichiers ”.dbf" 


Les fichiers ".dbf" sont des fichiers binaires permettant d'enregistrer beaucoup 
de données, tout en retrouvant facilement les informations enregistrées. 


+ © M Exercice 


Sauvegardez votre projet CSV. 
Renommez le en projet DBF. 


Nous allons utiliser cet exercice pour créer une véritable Application, liée à un 
service de données. 

Supprimez les boutons "Ajouter" et “Supprimer”, le Code Source des 
événements "OnShow" et "OnClose”, les constantes. 

Remplacez le "TCSVDataset" par un "TDBFDataset”. Pour faire cela 
remplacez le type "TCSVDataset” par "TDBFDataset" dans le fichier ".pas" et 
le fichier "fm". Vous pouvez accéder au fichier "fm" en cliquant sur le 
bouton de droite de la souris sur la fiche. 

Ajoutez au dessus de la grille, le Composant "TDBNavigator" de la palette 
"Data Controls". Ce Composant automatise la gestion d'une Source de 
données. 

Le DBEDataset gère ces bases de fichiers : 

TableLevel 3 - dBase II+ 

© TableLevel 4 - dBase IV; 

® TableLevel 7 - Visual dBase VII; 

® TableLevel 25 - FoxPro. 


Affectez 7 à la propriété "TableLevel" du DBEHDataset. 


Allez sur la propriété "FieldDefs", puis éditez-la. Cette propriété contient les 
définitions de champ du fichier de table DBF. Le fichier DBF à créer est 
véritablement une table de données structurée, possédant un classement. 


Nous allons enfin créer une clé pour notre fichier. Une clé permet de trouver 
le bon enregistrement facilement et rapidement. 


"Ajoutez" un champ. 

Créez le champ avec le nom "Cle" en affectant la propriété "Name" comme 
champ Auto-Incrémenté. Le type est "ftAuto[nc". Dans la proprété "Attibutes" 
mettre "faRequired" à "True". 

"Ajoutez" un champ. 


Créez le champ avec le nom "Nom" comme champ chaîne. Le type est 
"ftString”. 

"Ajoutez" un champ. 

Créez le champ avec le nom "Prenom" comme champ chaîne. 


Affectez la propriété "OpenMode" à “omAutoCreate". Cette valeur de 
propriété permet de créer le fichier "dbf" dès l'ouverture. 
Pour enregistrer les définitions affectez "True" à "StoreDefs". 


°+ © M Les contrôles de données 


Ajoutez un "TDatasource" dans la palette "Data Acces", un "TDBNavigator" 
dans la palette "Data Controls". 


Ajoutez deux Composants "TDBEdit". L'un porte le nom "DBENom" l'autre 
porte le nom "DBEPrenom”!. 


Dans “"DEBNom" affectez le “"DataField" "NOM" et le "Datasource” 
"DSUtilisateur". 
Dans "DBEPrenom" affectez le "DataField" "PRENOM" et le "Datasource" 
"DSUtilisateur". 


Voici ci-après le résultat : 


Fiche 


éépÿ+-vxe 
_INoms [Prénoms 


Une fiche évoluée d'édition de données 


+ ©O MH Les Index 


Les Index permettent de trouver rapidement les données indexées. Ils existent 
dans tout Système de Gestion de Données rapide. 


Nous allons créer notre premier "Index". 

Dans l''Inspecteur d'Objets” sur "DbfUtilisateurs", éditez la propriété 
"Indexes".… 

Ajoutez un nouvel index. 

Créez le fichier index "FICHECLE" en affectant la propriété "IndexFile". Cet 
Index est sur la clé. Il est donc primaire. 

Affectez à « SortField”" "CLE" qui est le nom de votre clé primaire. Une clé 
primaire est la clé principale d'une table représentée ici par un fichier ".dbf”. 
L'index est aussi unique. On trouve forcément un seul enregistrement grâce à 
une affectation automatique de l'auto-incrémentation. Affectez à la propriété 
"Options" "ixPrimary" et "IxUnique”. 

Ajoutez un nouvel index. 

Créez le fichier index "FICHENOM" vers le champ "nom. Cet index permet 
donc de retrouver un enregistrement du champ "nom". Ce champ est une 


chaîne. Affectez "ixCaselnsensitive" à "Options". Cela permet de retrouver le 
nom sans distinction de majuscules, ni minuscules. 


Ces index posséderont des fichiers à l'exécution. 


v 


Le DBFDataset modifié dans l'inspecteur d'Objets 


Vos constantes sont ci-après : 


const CST_ EXTENSION _DBF ='.dbf ; 
CST_ NOM FICHIER ="'fiches'; 
CST_FIELD_ NOM = 'Nom'; 
CST FIELD PRENOM = Prenom'; 


A l'événement "OnShow" de votre fiche placez cette Source : 


procedure TMaFiche.FormShow(Sender: TObject); 


begin 
11 On cherche ou crée le fichier DBF 
with DbfUtilisateurs do 
Begin 
FilePathFull := ExtractFileDir ( Application.ExeName ); 
TableName:=CST NOM FICHIER 
+CST_EXTENSION_DBF; 
try 
Open; 
Except 
on E:Exception do Showmessage ( ‘Impossible d'accéder à la 
Source de données : "+#13#10+E.Message }); 
end; 
end; 
End; 


Nous avons certes passé du temps à définir notre fichier. Mais les Sources 
prennent maintenant moins de place pour l'utilisation du "Dataset”. Le 
DBFDataset automatise le renseignement de notre grille. 


+ © MH Tester 


Il est possible que le "DBGrid" gère mal la modification de données. 
Affectez "dgEditing” à "False" dans les "Options" de votre grille. 


+ ©O M Conclusion 


Cet exemple pourrait être amélioré avec des "TPanel" permettant au Logiciel 
de prendre toute la page. Nous avons déjà montré la gestion des "TPanel" 
dans un premier exemple. 


Le fichier DBF permet de sauvegarder beaucoup de données. Seulement nous 
sommes freinés par l'utilisation simplifiée de fichiers. Ces fichiers ne sont pas 
manipulables aussi facilement qu'avec un serveur centralisé. 


Logiciel centralisé 
CREATIVE COMMON BY NC-ND 


+ © Introduction 


Un Logiciel centralisé, donc persistant, accède aux informations d'un 
ordinateur, le serveur de données. Les données sont les informations 
identiques pour tous les utilisateurs du Logiciel. Il peut y avoir beaucoup 
d'utilisateurs, répartis sur différents ordinateurs. 

Si votre Logiciel accède à un serveur, il y a de grande chance que celui-ci soit 
centralisé. 


Un Système de Gestion de Données permet de gérer la partie persistante d'un 
Logiciel. Des fichiers permettent de retrouver ce qui avait été fait avant. Une 
sauvegarde est nécessaire, car toute donnée électronique peut s'effacer à tout 
moment. 


Un Système de Données comme des fichiers CSV, ou un Système de Données 
sans gestion du tri, peut s'avérer insuffisant pour gérer des données aussi 
complexes que celles d'un serveur centralisé. Le serveur ne peut répondre à 
une demande forte des utilisateurs. 


+ © ORACLE et MARIA DB 


Un Logiciel centralisé utilise en général un Système de Gestion de Base de 
Données ou SGBD. Le SGBD le plus haut de gamme est ORACLE. II peut 
gérer beaucoup d'utilisateurs sur un seul serveur. Mais il nécessite une licence 
et un administrateur ORACLE. 


Un Système de Gestion de Base de Données gère en général bien le tri et un 
nombre suffisant d'utilisateurs. Il en existe beaucoup en licence Libre 
maintenant. Les programmeurs, utilisant des Serveurs de Données Libres 
comme MARIA DB SERVER, ne s'embêtent pas à tout centraliser sur un seul 
serveur. ORACLE a voulu privatiser MY SQL, que l'on peut remplacer par 
MARIA DB. Ainsi le Fork MARIA DB devient maintenant incontournable. 


La version CLUSTER de MARIA DB SERVER permet de déporter 
l'utilisation d'un serveur vers un autre serveur. 


+ © ORACLE vs le libre 


J'ai déjà vu des entreprises passer de ORACLE à MY SQL SERVER ou 
MARIA DB SERVER, son Fork, à cause vraisemblablement de frais engagés 
coûteux pour ORACLE. En effet MARIA DB peut être choisie lorsqu'il y a 
une décentralisation des serveurs, c'est à dire des serveurs de données répartis. 


MARIA DB SERVER, le serveur de données évolutif, peut aussi être en 
concurrence avec POSTGRESQL. POSTGRESQL est un serveur de données 
gérant des données plus complexes que MARIA DB, dont celles des Systèmes 
d'Informations Géographiques. 


ORACLE a acheté MY SQL en 2010. Des Forks de MY SQL, donc des 
clones Libres de MY SQL, ont été créés ensuite, car ORACLE ne souhaite 
pas forcément que ses Logiciels restent libres. Ainsi MARIA DB le Fork de 
MY SQL est aujourd'hui incontournable. 


Un serveur de données comme FIREBIRD, permet de créer un Logiciel 
complexe, non relié à un serveur. Le Logiciel peut alors être utilisé sans 
aucune installation pour un seul utilisateur, puis ensuite pour plusieurs 
machines. FIREBIRD est le projet Libre du gestionnaire de données 


INTERBASE de DELPHI. 


Les Logiciels sont actuellement si aboutis qu'ils se complexifient facilement. 
Il est donc intéressant de penser à une utilisation élargie de son Logiciel. Un 
Logiciel accédant à certains systèmes de données, comme FIREBIRD ou 
SQLITE, peut fonctionner indépendamment de tout serveur. Les SGBD SQL 
disposent de fonctions automatisées de calcul. 


+ © Modéliser son Logiciel 


Un SGBD, ou Système de Gestion de Bases de Données, peut être modélisé 
de la même manière que des Objets. Nous vous apprenons ici le diagramme 
de classes UML. UML est une boîte à outils de diagrammes permettant de 
modéliser une partie explicite de votre Logiciel. 


MERISE permet de modéliser les données. Des outils existent pour créer vos 
données à partir de modèles MERISE. 


UML permet de modéliser la création d'un Logiciel. Nous allons utiliser des 
"diagrammes de classes” UML en exemples. 


Voici des outils UML sur GNU LINUX ou WINDOWS : 
° KIVIO 

®e UMBRELLO 

© STAR UML 

® GAPHOR 

® ARGO UML 

° BOUML 


Vous pouvez aussi gérer de l'UML avec les moteurs BPMN, trouvés sur le 
web. 


Il est possible d'installer STAR UML sur GNU LINUX avec le paquet 
PLAYONLINUX, permettant de télécharger les librairies DCOM et MSXML, 
avec STAR UML. Pour installer PLAYONLINUX, vous devez disposer d'une 
licence WINDOWS 32 bits, comme WINDOWS 95 par exemple. 


Il existe aussi des Logiciels payants permettant de créer automatiquement du 
Code Source, ou de créer des données. Il est intéressant, pour gagner en 
rapidité, de combiner LAZARUS et DELPHI. 


+ © Pas de doublon mais des 
relations 


Un Système de Gestion de Base de Données SQL bien conçu possède très peu 
de doublons sur le serveur qu'il utilise, mis à part pour les clés étrangères. 
Contrairement aux simples fichiers qui regroupent tout en leur sein, Les 
SGDB sont en général Relationnels, où SGBDR. Seules les relations sont 


doublées. 


Il peut aussi y avoir des données doublées pour des informations comme le 
nom d'un client et son adresse pour un devis ou une commande. Comme cela 
on peut effacer un client pour garder la commande dans un historique. 


Un SGBD permet de garder l'intégrité des données sur le serveur, grâce aux 
clés mais aussi grâce aux événements de mise à jour appelés TRIGGER. Ainsi 
une clé primaire est la seule à être dupliquée dans une clé étrangère. La clé 
étrangère peut être mise à jour en fonction des directives du TRIGGER. On 
peut même effacer des enregistrements liés à une clé primaire avec un 
TRIGGER. 


Les TRIGGERS sont faits pour créer des Logiciels centralisés 2-tiers ou des 
applications web avec beaucoup d'utilisateurs. Pour le distant, on pourra 
cependant préférer les applications 3-tiers n'ayant pas forcément besoin d'être 
Web. Il existe des Datasets 3-tiers, avec des clients, un serveur filtrant les 
données, puis le serveur de données. 


+ © M Exemple 


Voici une présentation de données : 
Kiélité 

| MROUX 

| MIMEMAND 

| BICSOU 


Cette présentation ne doit pas être votre table de données. En effet "M." est 
répété 2 fois et peut changer si la langue change. 


Voici comment seront les deux tables de cette présentation sans doublon 
gênant l'intésrité des données : 


Witilité (clé) 


GIROUX 
ALLEMAND 


Cid CTirélité Const 
| Monsieur 
| Madame 
| MHéemoiselle 


On utilisera un Query pour unir ces deux tables avec la propriété "SQL" 
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comme ceci : 

SELECT PERSONNE NOM, PERSONNE PRENOM, 
CIVILITE_ COURT FROM PERSONNE LEFT JOIN CIVILITE 
ON ( CIVILITE_CLE = PERSONNE _CIVILITE ) 


Selon le LEFT JOIN, joindre de la gauche en français, PERSONNE sera la 
table maître et n'affichera les civilités que sur demande. 


+ © L'Exemple 


Nous voulons répertorier les citoyens de mairies de villages. 


+ © Penser à définir 


L'informatique c'est de l'information. L'information se sont essentiellement 
des mots. Les Sources doivent être comprises. Si vos entités sont mal définies, 
vous pouvez vous tromper dans la structure de vos données. Une structure de 
données est difficile à modifier. Il faut en effet garder les données existantes. 
N'hésitez pas à ajouter des commentaires dans vos modèles. 


+ © Relation unique 


Une relation unique est facile à gérer. Des Composants de LAZARUS 
permettent de créer une relation unique entre deux tables. 

Par exemple un "Village" possède une mairie ou n'en possède pas. Le 
"Village" a droit à 0 ou 1 "Mairie". Tandis qu'une "Mairie" est toujours au 
sein d'un "Village", qui devient une commune. Une "Mairie" a droit à 1 et 1 
seul "Village". 


äppartient à 


Une et une seule "Mairie" appartient à un "Village" 
Un "Village" possède zéro ou une "mairie" 


On a l'habitude de nommer les entités au singulier dans tout serveur de 
données. Si on sépare la "Mairie" du "Village", la table "Village" est 
logiquement plus grande que la table "Mairie". On évite, grâce au Système de 
Données Relationnel, de créer trop de doublons "Village", au sein d'une seule 
table. 


On crée donc deux tables : La table "Mairie" et la table "Village". La clé 
"Village" est cependant dupliquée dans la table "Mairie" par une relation. La 
relation 1-1 crée une clé étrangère dans la table "Mairie". Les relations sont 
les uniques doublons au sein des SGBDR. 


âppartient à 


+ClePrimaireMairie +ClePrimaire“illage 
+CleEtrangereVillage 


Une Mairie appartient à un seul village 
Un village contient une seule mairie 


Cette présentation peut être créée automatiquement par votre outil UML. 


Il est peu judicieux de créer une clé étrangère au sein de la table "Mairie", car 
celle-ci est sûrement reliée à un "Village". 

La table "Village" est informée sur sa "Mairie", grâce à la table "Mairie". On 
recherche alors dans la table "Mairie" quelle est la clé étrangère "Village", au 
sein de la table "Mairie". 

Si on compte faire beaucoup de recherches communales pour les villages, il 
est intéressant de trier, par avance, cette clé étrangère avec la clé "Mairie", 


toujours triée. Un cluster, au sein d'un SGBD, permet de dupliquer certaines 
données, comme les clés étrangères, afin de trier par avance les données des 
tables. 

Il est à noter que si "Village" avait été remplacé par "Commune" la relation 
unique aurait été celle-ci : 


Une et une seule "Mairie" appartient à une et une seule "Commune" 
Une "Commune" possède une seule et une seule "Mairie" 


Ce genre de relation peut aussi se modéliser ainsi : 


La table "Commune" possède un attribut "Mairie" 
Une table d'une relation unique peut intégrer ses attributs au sein de la table 
parent. En effet la relation ne possède pas de doublons, car "Mairie" appartient 
forcément à une même "Commune", en toute réciprocité. 
L'attribut "Mairie" pourrait s'appeler aussi "Nom Mairie”. 
En effet un attribut est une information unique. Il deviendra une variable avec 


un type au sein du Logiciel. Si l'information est gardée à la fermeture du 
Logiciel, elle peut être sauvegardée au sein d'un fichier, ou d'un SGBDR. 


Commune 


+Nom Mairie 


L'attribut "Nom Mairie" est inclus dans la table "Commune" 


"Nom Mairie” est une chaîne. 


+ © Relation multiple 1-N 


Créons la classe "Citoyen". 
Un Citoyen est né dans un seul village. 


Nous choisissons le mot "Citoyen" en fonction du contexte choisi. 
Nous indiquons ici que le village peut ne pas contenir de "Citoyen". Il est 
donc possible que le village existe encore s'il n'a plus d'administré. 


Il y aura à terme plus de "Citoyens" que de "Mairie". En mettant une clé 
étrangère "Mairie" dans "Citoyen", nous pouvons dédoubler un 
enregistrement "Citoyen", et lui affecter forcément une "Mairie" de naissance. 


Un "Citoyen" est né administrativement, 
pour une et une seule "Mairie" 
Le "Village" a vu naître 0 ou n “Citoyens” 


âppartient à 


+ClePrimaireVillage 


Citoyen 


+ClePrimaireCitoyen 
+CleEtrangereMairie 


Le modèle de données : 
Un citoyen est né administrativement, 


dans une "Mairie" dans un "Village" 


Une relation multiple 1-N possède le même modèle de données qu'une 
relation unique. Seulement le programme permettra de créer plusieurs 
citoyens pour une mairie. En effet il sera possible de dupliquer "Citoyen". 


+ © Relation multiple N-N 


Créons une relation entre Village et Citoyen. 


Habite 


Un "Citoyen" "Habite" dans un ou plusieurs "Villages" 


Ces relations nécessitent ce genre de structuration de données : 


Habite 
+ClePrimaireCitoyen 
+CleEtrangereMairie 


+CleEtrangereVillage 


Les clés étrangères de la relation sont dans les tables 


On pourrait aussi gérer plus facilement la relation N-N dans une table, 
entièrement dédiée à la relation. Les clés étrangères seraient aussi la clé 
primaire multiple de la table. La relation pourrait ainsi être gérée à part. Cela 
allège les colonnes des deux tables. 


Vous pouvez créer votre Composant pour gérer facilement ce genre de 
relation. Sachez seulement qu'il existe déjà en Libre au sein de 
"EXTENDED". 


+ © M Exercice 


Notez qu'avec ce modèle, on ne sait pas dans quel village le Citoyen est né. 
Modifiez le modèle pour savoir dans quel village chaque citoyen est né. 


+ © M Correction 


Transposez la relation entre "Citoyen" et "Mairie", et mettez-la entre 
"Citoyen" et "Village". 

Ensuite changez la relation "Appartient à" en relation "Administre", pour 
créer une relation 1..n sur Village. 

La clé étrangère "Village" est supprimée “dans Mairie". La clé étrangère 
"Mairie" est créée dans "Village". 


+ © Relation multiple N-N-N 


Les relations complexes reliant 3 tables ou plus sont rares. La création d'une 
table relation, de 3 clés étrangères, nécessite que les liens créés soient 
interdépendants. Sinon créez deux relations N-N. En effet il ne faut pas 
oublier que vous pouvez retrouver une partie de la relation non affectée. Des 
clés étrangères nulles alourdiraient la base. 


Vous pouvez créer votre Composant pour gérer facilement ce genre de 
relation. Il sera inspiré du Composant de relation N-N. Sachez cependant que 
ce dernier existe au sein du paquet "EXTENDED" sur Internet. 


+ © Conclusion 


L'exercice que nous vous avons montré montre l'importance des définitions et 
du périmètre d'action. Aussi nous pourrions remplacer l'entité "Village" par " 
Entité urbaine". Cela permettrait d'ajouter les villes pour une future utilisation. 


+ © Bases de données 


Les bases de données sont des espaces de stockage organisés, permettant de 
sauvegarder les informations nombreuses, du ou des utilisateurs d'un Logiciel. 
Un Logiciel, créé grâce à une base de données, accepte en général un grand 
nombre d'informations, voire d'utilisateurs. 


+ © Le pouvoir du Libre 


Des bases de données Libres permettent de sauver beaucoup d'informations 
utilisateurs. Elles acceptent aussi un grand nombre d'utilisateurs. Elles sont 
utilisées sur les meilleurs serveurs Web. 


MARIA DB est de plus en plus évolué. C'est l'incontournable du langage 
PHP. POSTQRESQL est un SGBDR utilisé pour sa palette de fonctions SQL. 


FIREBIRD et SQLITE sont utilisés en Embarqué, pour des Logiciels prêts à 
fonctionner. SQLLite est aussi utilisé pour créer des Logiciels Web non 
répartis. FIREBIRD permet de créer des Logiciels Client/Serveur et trois tiers, 
sur DELPHI et LAZARUS. 


- © Bases de données embarquées 


SQLITE et FIREBIRD permettent de créer des Logiciels possédant une base 
de données embarquée. Cette base de données embarquée peut être 
indépendante de tout serveur de données centralisé. Cela permet de créer des 
Logiciels possédant beaucoup de données sans avoir besoin d'être connectés à 
un réseau. 


Dans un Logiciel, il est possible d'envoyer des données et de les réceptionner. 
Vérifiez si le Système de Gestion de Données peut le faire. Il est possible 
d'utiliser ou de créer des Composants de communication de données trois 
üers. Il en existe sur LAZARUS et DELPHI. MAN FRAMES et XML 
FRAMES les utilisent. 


Programmer FIREBIRD 


CREATIVE COMMON BY NC-ND 


+ © Introduction 


Nous allons comprendre la programmation avancée d'une persistance 
d'informations logicielles. 


- © Les tables 


Les Composants ZEOS permettent de gérer des informations persistantes sur 
un serveur centralisé. ZEOS peut être utilisé avec les contrôles de données 
commençant par "TDB". 


Il existe des Composants spécialisés pour FIREBIRD nommés IBX et UIB. Il 
est préférable d'utiliser des Composants spécialisés plus rapides et plus à jour. 
Dans le paquet EXTENDED, vous avez une démonstration de FIREBIRD 
EMBED, pour FIREBIRD embarqué, avec des Composants spécialisés. 


Les "Paquets" Libres ZEOS sont dans le "gestionnaire de paquets en ligne" ou 
sur http://sourceforge.net/projects/zeoslib. 

Téléchargez une version stable. 

Sur LAZARUS installez le paquet zcomponent.lpk et ses autres paquets. 
LAZARUS redémarre... 


. © Points forts de FIREBIRD 


FIREBIRD permet de créer des Logiciels persistants complexes, en utilisant 
les contrôles de données, de LAZARUS ou DELPHI. 


FIREBIRD est utile pour créer des Logiciels Client/Serveur ou 3-tiers 
applicatifs. Un Logiciel Client/Serveur va directement chercher les 
informations sur un serveur de données local. Il est possible de gérer 
beaucoup d'utilisateurs sur FIREBIRD si les serveurs sont répartis. 


Un projet libre en 3 tiers peut vous permettre d'utiliser votre application à 
distance. Il est intéressant d'automatiser cela grâce à MAN FRAMES et XML 
FRAMES. 


FIREBIRD est un SGBD SQL, c'est à dire un Système de Gestion de Bases de 
Données par requêtes. Il possède donc un Système de Langage de Requêtes 
normalisé permettant son utilisation par LAZARUS, ou tout EDI avec accès 
SQL. 


FIREBIRD est un SGBD multi-plates-formes. Il stocke les informations d'une 
base de données dans un seul fichier. Il n'est donc pas dépendant du système 
de fichiers d'un Système d'Exploitation. 

FIREBIRD peut être utilisé, avec, ou indépendamment d'un serveur centralisé. 
On appelle FIREBIRD sans serveur FIREBIRD EMBED. 


FIREBIRD permet de gérer des données d'entreprise. C'est un Système de 
Gestion de Base de Données reconnu. Ce SGBD gère avec fiabilité les 
informations qu'il stocke grâce : 

® Aux relations permettant de lier des entités d'informations. 

® Aux TRIGGERS vérifiant et mettant à jour les relations. 

® Aux fonctions permettant de préparer les informations. 

® Aux tris préparés avec les CLUSTERS. 


- © Points faibles d'un SGBD SQL 


Un SGBD SQL n'est pas utile pour : 
® Les applications Web peu gourmandes. Utilisez plutôt SQLITE ou du 
NO SQL. 
® Faire peu de mises à jour sur les données. 


Les points faibles des SGBD SQL sont les atouts des outils NoSQL. 
SQLLITE peut servir à accéder aux données pour des applications Web peu 
gourmandes. Il est allégé, comme les outils NoSQL. Mais il peut être utilisé 
facilement avec LAZARUS, comme il utilise le SQL. 


+ © Composants FIREBIRD 


Nous allons utiliser ZEOS. En effet ZEOS permet de créer à la fois des 
données FIREBIRD, mais aussi MY SQL ou ORACLE. 


Utiliser des composants propres à une seule plate-forme de données permet de 
créer des Logiciels plus rapides. En effet, le TDataset et ses descendants sont 
lents car ils doivent permettre une utilisation homogène. 


Les composants IBX et JVUIB sont propres à FIREBIRD. Si vous avez déjà 
utilisé les composants IBX ou JVUIB sur DELPHI, il existe les mêmes pour 
LAZARUS, avec quelques incompatibilités. Allez vérifier les incompatibilités 
sur chaque site officiel des composants. Après avoir utilisé ZEOS pour 
FIREBIRD il est recommandé d'utiliser FIREBIRD avec IBX ou JVUIB. 


IBX est compatible 64 bits. Seulement il nécessite de générer les requêtes de 
mises à Jour. JVUIB est plus rapide à mettre en place. Préférez JVUIB si vous 
voulez vous simplifier la vie. 


IBX offre l'option d'éditer facilement une présentation de données FIREBIRD. 
Par contre cela nécessite de la programmation supplémentaire, qui est à faire 
sur toutes les éditions de données. 


+ © Récapitulatif 


Dans un système de données élaboré seules les relations sont en doublons 
dans des clés étrangères. Ainsi le système est facilement gérable. 


+ © installation de FIREBIRD 


FIREBIRD peut être géré par un serveur grâce à l'utilitaire fenêtré 
"flamerobin" ou l'utilitaire en ligne de commande "isql.exe" ou "isql-fb". 


° © M FIREBIRD sur GNU LINUX 


Allez dans le gestionnaire de paquets et sélectionnez les paquets "firebird- 
server”, "firebird-dev", "libfbclient", "flamerobin”. 


Créez, si l'application ne trouve pas la librairie, avec l'utilisateur "root", ce 
lien symbolique dans le terminal : 


In -s /usr/lib/libfbclient.so.n.n.n /usr/hb/libfbclient.so 


Les "n" sont à remplacer par les numéros de version de FIREBIRD installé. 
Ce shell est à placer dans le futur paquet GNU LINUX de votre Logiciel. 


Il y a une protection des droits. Ajoutez "firebird" à votre compte dans le 


Aa A Tant QU 
usermod -G firebird moncomptelinux 
audra ensuite redémarrer Sa Session, afin que Votre Compte SOIT MIS à jour. 


° © M FIREBIRD sur WINDOWS 


Téléchargez une version stable de FIREBIRD sur www.firebirdsql.org. 
Vérifiez si la version à télécharger est disponible dans le Composant 
"TZConnection", que vous avez installé sur LAZARUS. 


Téléchargez et installez "flamerobin" sur www.flamerobin.org. 
Copiez maintenant les "dil" de FIREBIRD du répertoire "bin" dans chaque 
nouveau projet ZEOS, IBX, ou JvUIB. 


+ © Utilisateur de données 


Pour connaître le mot de passe créé par Firebird, allez dans le fichier 
d’administration avec un éditeur de texte. 


Le fichier est ici sur LINUX : "/etc/firebird/3.0/S YSDBA.password" 


Il est dans le répertoire de FIREBIRD sous WINDOWS. 


- © Création d'une table FIREBIRD 


Vous pouvez créer des nouveaux 
gsec -user SYSDBA -pass masterkey -add nouvelutilisateur -pw 
motdepasse 


On voit ici que le mot de passe administrateur par défaut de firebird est 
"masterkey". Vous pouvez le remplacer par le mot de passe trouvé 
précédemment. Le mot de passe "masterkey" est utilisé quand on veut se 
passer du serveur. 


Avant de démarrer "flamerobin" 


Démarrez "flamerobin" ou ISQL. Enregistrez le serveur "localhost", sans 
renseigner le port. Le port, c'est l'endroit du serveur où on accède à son 
service. Le port de données FIREBIRD est automatiquement choisi par les 
composants. 


[No database selected] 


Fenêtre “flamerobin" 


Une fois le serveur enregistré, cliquez sur le bouton droit de souris, puis 
cliquez sur "Create new database”. 


Affectez, pour "Display Name", le nom de fichier de base que vous avez 
sélectionné. Renseignez le nom d'utilisateur que vous avez créé avec son mot 
de passe. 


Le jeu de caractère français est "ISO8859_1". Seulement cela impliquera que 
vos données ne seront que françaises. Vous pouvez aussi utilisez le jeu de 


caractères internationaux "UTF8". Le reste n'est pas à changer. 


On utilise en général les caractères UTF-8 pour créer une nouvelle base de 


données. Ces caractères ont une taille de 1 octet jusqu'à 5 octets pour des 
caractères accentués de certaines langues. L'UTFS est très intéressant pour les 
langues avec un alphabet similaire à l'alphabet anglais, donc pour les langues 
occidentales. Les caractères non accentués de l'alphabet anglais font tous 1 
octet. 


L'UTF8 comme tous les jeux de caractères internationaux demandera donc 
plus de place sur le disque dur et donc sur le réseau. Cependant GNU LINUX 
et LAZARUS sont en UNICODE UTEF-8. WINDOWS lui varie plus en 
fonction de la langue. Donc vous n'aurez pas à retraduire les caractères de 
votre base trop souvent avec l'UTF-8 en paramétrant IBX avec la variable 
lc_ctype. Regardez dans les démonstrations des paquets EXTENDED. 


Un caractère UNICODE UTEF-16 est sur deux octets. Cela peut être 
intéressant pour les langues avec beaucoup d'accents ou avec des lettres non 
anglaises. 


+ © M Création SQL du fichier de base de 
données 


Flamerobin automatise la création de votre base de données. L'instruction 
"Create new database" peut aussi être exécutée par du SQL FIREBIRD. 


Vous pouvez par exemple créer le fichier de votre base de données grâce au 
paquet lazregisteribx des paquets EXTENDED : 


CREATE  DATABASE  'chemin\vers\le\fichier.fdb" USER 
'SYSDBA' PASSWORD  'masterkey' PAGE_ SIZE 16384 


DEFAULT CHARACTER SET 'UTFS'; 


Vous avez aussi dans EXTENDED une démonstration de FIREBIRD sur 
DELPHI et LAZARUS. 


L'utilisateur et le mot de passe ainsi définis ne sont à utiliser que pour un 
accès direct au fichier de données. Si vous voulez plusieurs utilisateurs il 
faudra en créer selon un tutoriel de www.developpez.com. 


° ©  HÆ Sur GNU LINUX 


Sur LINUX il y a une sécurité contre les virus. Vous devez créer votre base de 


données dans le répertoire "/var/lib/firebird/n.n/data", en affectant l'utilisateur 
"firebird”. 


Tapez ceci dans le terminal avec l'utilisateur "root" : 


cp chemin_database /var/lib/firebird/n.n/data 
chown firebird.root /var/lib/firebird/n.n/data/madatabase.fdb 


Les "n" sont à remplacer par le numéro de version "firebird". 


Redémarrez "flamerobin" 
Ajoutez la base de données à relier. 
Vous pouvez accéder à votre base de données. 


- © Créer une table 


Dans votre base de données Libre, vous voyez l'ensemble des possibilités 
offertes par FIREBIRD. 


Cliquez, avec le bouton droit de la souris, sur "Tables", puis "Create New". 
Vous voyez alors s'afficher la sémantique à respecter. 


_Effacez le Code puis remplacez-le par ceci : 
CREATE TABLE UTILISATEUR 
( 
CLEP INTEGER NOT NULL, 
NOM VARCHAR(100), 
PRENOM VARCHAR(100), 
PRIMARY KEY (CLEP) 


); 


Validez avec la case à cocher du gestionnaire de requête. 


Nous créons la table "UTILISATEUR", possédant les champs "CLEP", 
"NOM", "PRENOM". "NOM" et "PRENOM". 


Ces informations sont des chaînes de 100 caractères maximum. "CLEP" est 
un entier mais est aussi la clé primaire. 


Il s'agit maintenant de renseigner automatiquement votre clé de type entier. 
Maintenant Flamerobin permet d'informer vos clés en quelques clics de 
Souris. 


Cliquez droit sur la table créée de votre clé à automatiser. Cliquez sur le 
dernier menu "Properties" ou Propriétés. Vous voyez les champs de votre 
table. Cliquez sur le bouton permettant de modifier le champ, à côté de la 
poubelle. 


Il s'agit de créer le générateur de clé. Sélectionnez "Create New Generator" 
pour créer un nouveau générateur le clé. Puis cochez "Trigger". Le Trigger va 
renseigner votre clé avec le génésateur à l'insertion. 


Ça n'est pas fini. Cliquez sur "Execute" puis validez le SQL exécuté au dessus 
de la requête créée. Vous effectuez un "Commit" sauvegardant votre requête. 


Vous pouvez, dans le panneau principal ou dans "Properties", visionner votre 
générateur et votre TRIGGER. 


+ © MH Explications à propos du code SQL 


CREATE GENERATOR gen_t1_id; 


SET GENERATOR gen_t1_id TO 0; 


Ce générateur permet de créer en série une clé auto-incrémentée. 
Validez avec la case à cocher du gestionnaire de requête. 


Utilisons ce générateur de clé dans un "TRIGGER", se déclenchant à 
r : donnees 

set term !! ; 

CREATE TRIGGER UTILISATEUR_GEN FOR 
UTILISATEUR 

ACTIVE BEFORE INSERT POSITION 0 

AS 

BEGIN 

if (NEW.CLEP is NULL) then NEW.CLEP 
=GEN_ID(GEN_T1_ID, 1); 

END"!! 

set term ; !! 


Validez avec la case à cocher du gestionnaire de requête. 


Nous avons créé notre a table. Nous allons maintenant y accéder. 


DROP TABLE UTILISATEUR : 


DROP GENERATOR gen_t1_id; 
DROP TRIGGER UTILISATEUR_GEN; 
Validez la transaction sur VOS Mises à JOUr. 


« © Exercice 


Sauvegardez votre dernier exercice avec les tables DBF. 


Nous allons utiliser cet exercice pour créer une véritable Application liée à un 
serveur de données. 


° © M Une connexion centralisée 


Ajoutez le Composant ZEOS "TZConnection" pour le renommer en 
"Connection". 


Renseignez la propriété "Database" avec le chemin de votre fichier de base de 
données. 


Renseignez la propriété "Hostname" avec "localhost". C'est l'adresse du 


serveur de données. Elle n'est pas à renseigner si on utilise FIREBIRD 
EMBED. 


Renseignez la propriété contenant les SGBD avec la version de votre 
"firebird". FIREBIRD EMBED contient deux "d". Sélectionnez "FIREBIRD" 
avec un seul "d”". 


Testez la connexion en mettant "Connected" à "True". 


+ © M La Source de données table 


Supprimez le Composant de type "TDBFDataset"”. Ajoutez le Composant 
ZEOS "TZTable" pour le renommer en "ZUtilisateur”". 


On a l'habitude de nommer les entités au singulier dans tout serveur de 
données. Le Composant "TZTable" est un descendant de "TDataset". Il peut 
être utilisé facilement au sein de LAZARUS. 


Affectez "Connection" à la propriété "Connection" de "ZUtilisateur”. 
Renseignez sa propriété "TableName" avec le nom de la table: 
"UTILISATEUR". 


Nous allons enfin créer un vrai lien de données LAZARUS. Dans la palette 
"Data Access", sélectionnez le Composant "TDatasource", et placez le sur la 
fiche. 


Le "TDatasource" permet de relier tout "TDataset" à tout contrôle de données. 
Renommez-le en "DSUtilisateur”. 


Affectez "ZUtlisateur" à la propriété "Dataset" de "DSUtilisateur". 
Dans le "DBGrid" affectez "DSUtilisateur" à sa propriété "Datasource". 


_Placez ce Code Source pour l'événement "OnShow" : 
procedure TMaFiche.FormShow(Sender: TObject); 
begin 

try 
Connection.Connected := True; 
ZUtilisateur.Open; 
Except 
on E:Exception do Showmessage ( ‘Impossible de se connecter 
à la Source de données : " +#13#10+E.Message ):; 
end; 
end; 


Voici ci-après le résultat pour la fiche : 
Fiche 


é éd += pv xE 


Le "Datasource" est à côté de son "Dataset" sur la grille 


. © Les relations 


Nous allons créer une gestion d'onglets, avec un deux onglets : L'un est la 
fiche déjà créée, l'autre est une fiche "Département", permettant de grouper les 
utilisateurs. 


Dans "flamerobin" sur votre base de données ouverte, nous allons créer la 
table département. 


Cliquez droit sur "Tables" puis "Create New". Vous voyez alors s'afficher la 
sémantique à respecter. 


_Effacez le Code puis remplacez-le par ceci : 
CREATE TABLE DEPARTEMENT 

( 

CLEP INTEGER NOT NULL, 

NOM VARCHAR(100), 

PRIMARY KEY (CLEP) 

E 


Validez avec la case à cocher du gestionnaire de requête. 


Créez le générateur d'Id : 
CREATE GENERATOR gen_t2_id; 
SET GENERATOR gen_t2_id TO 0; 


Validez avec la case à cocher du gestionnaire de requête. 


Ce générateur permet de générer une clé auto-incrémentée. 


set term !! ; 

CREATE TRIGGER DEPARTEMENT _GEN FOR 
DEPARTEMENT 

ACTIVE BEFORE INSERT POSITION 0 

AS 

BEGIN 

if (NEW.CLEP is NULL) then NEW.CLEP 
=GEN_ID(GEN_T2_ID, 1); 

END"! 

set term ; !! 


Validez avec la case à cocher du gestionnaire de requête. 


Nous avons vu dans le chapitre précédent les relations entre les tables. 


Le département contient n utilisateurs. Un utilisateur appartient à un 
département. Nous allons donc créer une clé étrangère dans la table 
"UTILISATEUR" : 

ALTER TABLE UTILISATEUR ADD IDDEPARTEMENT 
INTEGER; 


Validez la transaction. 


Dans cette configuration, si on efface un département, la table utilisateur voit 
la clé étrangère du département rester intacte. Nous ne respectons alors pas 
l'unicité de notre base de données. 


De même il est possible que la clé du "DEPARTEMENT" soit mise à jour, ce 
qui n'est pourtant pas recommandé. En effet une clé ne doit jamais se 
modifier. Créons tout de même deux "TRIGGERS" permettant de respecter 
l'unicité. 


Voici deux "TRIGGERS" mettant à jour la table "UTILISATEUR", à partir 
de la table "DEPARTEMENT". L'un se déclenche à l'effacement de tout 
enregistrement de "DEPARTEMENT", l'autre à la mise à jour de tout 
enregistrement de "DEPARTEMENT". 

SET TERM |; 

CREATE TRIGGER 

DELETE_DEPARTEMENT_UTILISATEUR FOR 

DEPARTEMENT 

ACTIVE BEFORE DELETE POSITION 0 

AS 

BEGIN 

UPDATE UTILISATEUR SET 

UTILISATEUR.IDDEPARTEMENT = NULL WHERE 

IDDEPARTEMENT = OLD.CLEP; 

END| 

CREATE TRIGGER 

UPDATE_DEPARTEMENT_UTILISATEUR FOR 

DEPARTEMENT 

ACTIVE BEFORE UPDATE POSITION 0 

AS 

BEGIN 

IF (NEW.CLEP <> OLD.CLEP) THEN 

BEGIN 

UPDATE UTILISATEUR SET 

UTILISATEUR.IDDEPARTEMENT = NEW.CLEP WHERE 


IDDEPARTEMENT = OLD.CLEP:; 
END 

END| 

SET TERM ; | 


Validez la transaction. 


Il est possible de changer le caractère de fin de ligne choisi par "SET TERM". 
Le principal est de respecter scrupuleusement la syntaxe demandée. 


Nous avons créé notre deuxième table. Nous allons maintenant y accéder. 


Créez un deuxième projet à partir de l'exercice précédent, en copiant le 
répertoire contenant l'exercice. 


Sélectionnez tous les Composants visibles de la fiche, en maintenant enfoncée 
la touche "Shift". Cliquez à droite de la souris sur un Composant, puis 
"Coupez". Les Composants se cachent. 


Ajoutez un "TPageControl" de la palette "Common Controls". Affectez 
"alClient" à sa propriété "Align". Cliquez à droite de la souris sur l'onglet, 


puis "Ajoutez une page". Cliquez sur la page ajoutée puis "Coller”. 


Renommez le nom de "Tabsheet1" en "TabUtilisateurs". Modifiez la propriété 
"Caption" en lui affectant "Utilisateurs". 


Voici ci-après le résultat : 


Utilisateurs 


Ce . 
RASE Connection si 
ic %# EE | 
nl DSUtilisateur Utilisateur Css 
El DIRES 
2 CS 
me 
 _ Quitter es 


Nous avons placé notre fiche dans un onglet 


De la même manière créez l'onglet "Départements" à partir de l'onglet 
"Utilisateurs". 


Maintenant, le bouton "Quitter" est dans chaque onglet. Au lieu de placer à 
chaque fois le bouton "Quitter" dans chaque onglet, nous allons le placer en 


haut. 


Nous allons maintenant dupliquer les informations de l'onglet pour créer un 
deuxième onglet. 


Sélectionnez tous les Composants visibles de l'onglet, excepté un "TEdit” et le 
bouton "Quitter". 


Créez un deuxième onglet. Cliquez sur la page ajoutée et "Collez". Nommez 
la page "TabDepartement" avec pour "Caption" "Département". 


Nous ne voyons plus le bouton "Quitter", qui sert à quitter la fiche. Il n'est 
nécessaire que pour la fiche, pas pour chaque onglet. 


Cliquez sur les onglets. Affectez "“alBottom” à la propriété "Align" du 
"TPageControl". 


Redimensionnez-le pour voir un peu le fond du formulaire. Ajoutez un 


"TPanel" sur le formulaire. 


Affectez sur le "TPanel" "alClient" à la propriété "Align", et "bvNone" à 
"BevelOuter". 


NN 


Puis Affectez "PanBoutons" à son nom, et rien à "Caption". Cela permet de ne 
pas voir le "TPanel". 


Coupez-collez le "TToggleButton" vers le "TPanel". 


Copiez-collez sur le même formulaire les Composants "DSUtilisateurs" et 
"ZQUtilisateurs". 


Voici ci-après le résultat : 


| Département 


La fiche avec les départements 


Une fois que ce nouveau "Dataset" est relié, puis ouvert, vous avez alors créé 
une véritable Application centralisée, avec des liens entre vos fiches. Ce genre 
de Logiciel est robuste. I1 nécessite moins de tests que des applications non 
RAD ou Web. 


+ © Conclusion 


Vous pouvez adapter le Logiciel à la taille de fenêtre avec des "TPanel". 


FIREBIRD est très utile pour créer des applications robustes Client/Serveur . 
Il permet grâce au SQL et aux "TRIGGERS" de respecter l'unicité 
d'applications Client/Serveur. 


Il est maintenant intéressant d'utiliser SQLLite pour les applications Web. Il 
est possible d'utiliser ZEOS ou SQLDB pour accéder à SQLLite. 


EXTPASCAL et IBX 


CREATIVE COMMON BY NC-ND 


- © Introduction 


EXTPASCAL fut l'un des projets les plus rapides et des plus simples de 
Lazarus. Nous proposons EXTPASCAL pour permettre de faire renaître le 
projet. Il s’agit d’utiliser des sources de 2016 comme LAZARUS 1.6 et 
DEBIAN Jessie. 


L'exécutable binaire possède l'avantage conséquent de ne pas être interprété. 
Aussi le code binaire empêche de facilement attaquer un serveur. Par 
exemple, il faut en ce qui concerne PHP interdire toute fonction d'écriture 
pour que le serveur PHP soit sécurisé. Aussi l'exécutable binaire est plus 
difficile à patcher. Enfin les Composants DRA permettent de s'occuper au 
minimum de la sécurité. 


Le protocole serveur Fast CGI permet de créer des applications serveurs. On 
peut utiliser du Fast CGI pour créer des pages PHP. Si vous installez des Fast 
CGI binaires sur votre serveur et que votre serveur évolue et est mis à jour, 
l'exécutable binaire Fast CGI fera fonctionner votre serveur avec le minimum 
de travail. 


Vous n'êtes pas obligé d'utiliser un Framework Web pour créer des 
applications 3 tiers. Il existe un paquet nommé DBNetProcessor permettant de 
créer des Logiciels 3 tiers sans avoir besoin de navigateur Web. Il utilise un 
MemDataset afin de transférer les données par Internet. Le Framework MAN 
FRAMES utilise ce paquet afin de permettre de créer à la fois du 2 et 3 tiers. 


EXTPASCAL vous permet de créer des Logiciels réactifs en Web 2.0. Le 
Web 2.0 est un Web participatif dans lequel l'utilisateur peut facilement agir. 
L'Intelligence Artificielle peut aussi être implémentée en Pascal. . 


Il existe un autre Framework FREE PASCAL pour le Web. Le Framework 
BROOK est actif. Ce Framework n'utilise pas la conception intuitive. 
Cependant vous pouvez l'automatiser. 


LAZARUS est un EDI permettant de créer des exécutables pour une ou 
plusieurs plates-formes. Il est possible avec LAZARUS de programmer sur 
une plate-forme, pour mettre en place sur une autre. 


Il est recommandé de créer des exécutables Web pour des systèmes UNIX, 
comme GNU LINUX ou MAC-OS. En effet les systèmes UNIX sont mieux 
sécurisés que WINDOWS. GNU LINUX est libre, partagé donc, mais aussi 
gratuit. 


MICROSOFT possède un vieil environnement graphique n'ayant pas assez 
évolué en tant que serveur Web. Il est recommandé de supprimer de 
nombreux services WINDOWS, afin de sécuriser un serveur WINDOWS. 
Cela n'empêche pas votre serveur de crasher à cause d'un virus informatique. 
Pourtant, WINDOWS 10 utilise un noyau Linux pour reconnaître les 
périphériques. 


GNU LINUX et UNIX vous permettent de gérer votre serveur sans interface 
graphique. Cela permet d'allouer plus de mémoire pour le service à 
l'utilisateur. Le mot de passe administrateur, le système UNIX et le partage 
permettent d'empêcher aux virus de s'installer. 


+ © Le Web 


Le HTML est le langage de présentation de vos navigateurs Web. Les 
traitements de textes vous permettent de créer des pages Web. Le 
JAVASCRIPT va donner en plus du mouvement à vos pages Web. 


Nous vous conseillons de vous procurer un livre sur le HTML, le 
JAVASCRIPT et ExtJS. 


- © Les FastCGl 


La technologie des CGI, puis des FastCGL, est utilisée par LAZARUS pour 
créer des applications Web. Ces protocoles et le code binaire permettent une 
réponse quasi immédiate. 


Les CGI et FastCGI LAZARUS sont des exécutables d'un serveur Web. Elles 
renvoient une voire plusieurs pages Web lisibles dans un navigateur Web. 
Elles utilisent des serveurs Web comme APACHE, ou mieux, NGINX. Nous 
utiliserons APACHE pour que vous puissiez utiliser WINDOWS. Seulement 
NGINX pour GNU LINUX est plus rapide. 


Les CGI vous permettent de programmer de simples pages retournant votre 
résultat. 


Les FastCGI sont une amélioration réussie des CGI, permettant de réaliser un 
véritable Logiciel. Le protocole de communication FastCGI est différent et 
optimisé. 


L'utilisation des CGI et FastCGI est accessible avec LAZARUS. II suffit de 
sélectionner votre "Nouveau" projet afin de programmer ce que vous 
souhaitez. 


+ © EXTPASCAL 


EXTPASCAL avec EXTJS vous permet de créer des exécutables Web 
fonctionnant avec du JAVASCRIPT. EXTPASCAL automatise cette création 
Web. En général vous n'avez pas de HTML ni de JAVASCRIPT à créer. 


Le JAVASCRIPT d'EXTJS permet de faire croire à de véritables formulaires 
LAZARUS, dans votre navigateur Web. Vous créez des formulaires 
LAZARUS, transformés ensuite en HTML et en événements JAV ASCRIPT. 


Une partie du Code Source créé est réellement exécutée. Vous pouvez ainsi 
améliorer plus facilement vos projets EXTPASCAL. 


+ © Fiabilité d'un serveur LAZARUS 


La fiabilité d'un serveur Web LAZARUS dépend de la destruction complète 
des Objets créés par votre Application. Si un seul Objet n'est pas détruit, votre 
serveur peut alors planter, pour être redémarré. 


Il est très intéressant de créer des tests de mémoire, permettant de savoir si un 
serveur Web est fiable. En effet un serveur Web LINUX doit pouvoir 
fonctionner un an sans aucun plantage. N'oubliez pas de tester les compteurs 
de temps sur leurs limites ! 


Il est donc très facile de faire régresser un serveur LAZARUS. Vous pouvez 
tester la mémoire à la fin du chapitre sur la Programmation Procédurale 
avancée. 


+ © IBX 


IBX est une librairie de liens vers Firebird SQL. Son avantage est d'avoir des 
composants non liés à LCL, ce que demande EXTPASCAL. Cependant, seul 
le paquet ibnogui n'est pas lié à LCL en 2018. 


+ © Installer EXTPASCAL 


Téléchargez les "Paquets" "Orpheus For LAZARUS" et "EXTPASCAL" 
grâce à votre "Gestionnaire de Paquets en ligne" ou votre navigateur Web. 
Orpheus est dans Lazarus CCR. Vérifiez vos Sources grâce aux adresses Web 
et au référencement. En 2014, EXTPASCAL se télécharge surtout grâce au 
gestionnaire de version. 


EXTPASCAL est ici : 
www.extpascal.com 
bitbucket.org/matthieugiroux/extpascal/ 


Il existe aussi le projet Tiny-Intraweb. 


Le gestionnaire de version permet de scruter les commentaires afin de trouver 
une version stable des Composants. 


On vous décrit les gestionnaires de version dans le chapitre sur la 
Coopération. 


Renommez vos répertoires, afin de n'avoir aucun espace jusqu'aux paquets à 
installer. Cela permet de ne pas utiliser les accolades. 


Compilez "fmtoextp" et placez l'exécutable dans votre répertoire système de 
binaires avec son fichier "ini". Sur WINDOWS, c'est dans le réperoire "C: 
\Windows". Sur GNU LINUX, c'est dans "/usr/bin". 


Puis installez EXTPASCAL avec les 3 paquets du "Toolkit” : Les contrôles 
ou "Ctris”, la grille ou "Grid" et le projet ou "Proj". 


+ © Installer un serveur EXTPASCAL 


° ©  HÆ Sur GNU LINUX 


Voici une installation sur LINUX, un environnement gratuit et Libre. Si vous 
voulez installer ce genre de serveur fiable, vous pouvez contacter votre GUL 
local. Un GUL est un Groupe d'Utilisateurs LINUX. 


Allez dans le gestionnaire de paquet, et téléchargez le paquet "apache2". 


Nous allons installer le module APACHE FastCGI. Avec votre gestionnaire 
de paquets installez "libapache2-mod-fcgid", ou tapez en mode 
administrateur : 

apt install libapache2-mod-fcgid 


Mode administrateur 


Le mode administrateur est soit enclenché par la commande "sudo su", soit 
par la commande "su root". 


Le nom de module peut changer. Prenez alors le plus proche, celui contenant 
"fastcgi" pour APACHE. 


Le module FastCGI est alors activé sur APACHE. Nous allons aussi activer le 
module CGI. Copiez le fichier cgi.load des "mods-available" vers les "mods- 
enabled". La copie GNU LINUX est expliquée ensuite. 


Téléchargez le module EXTJS sur http:/www.extjs.com, en vérifiant la 
compatibilité de la version avec EXTPASCAL. Vous devez télécharger la 
bonne version de EXTJS, par rapport à celle demandée par EXTPASCAL. 


Votre serveur est dans le dossier www. Sur Linux il est dans /var. 


Mettez les sous-répertoires "extjs" dans le répertoire "/ext", à la racine de 
votre site Web. 


La commande administrateur qui permet de copier est celle-ci : 
cp -R source destination 


Il suffit de faire un glisser-déplacer vers le terminal pour placer les chemins 
"source" et "destination". 


La racine de votre site Web est à "/var/www". L'utilisateur doit être "www- 
data”, ou bien le groupe doit être "www-data”. 


Attention ! 
chown -R www-data.www-data /var/www 


Cette commande, qui permet de changer le propriétaire du dossier et de ses 
fichiers, est à exécuter à chaque fois que vous n'avez plus accès à votre 
exécutable, lorsque vous exécutez votre FastCGl. 


Le gestionnaire EXTPASCAL vous permet de contrôler votre projet 
EXTPASCAL. Avec LAZARUS, ouvrez le projet "ExtPascalSamples", dans 
le répertoire "ExtPascalSamples". Compilez le projet pour votre serveur, avec 
la bonne plate-forme. 


Si le projet ne compile pas vous avez peut-être à ajouter "../" dans les "Autres 
fichiers unités" du Compilateur. Allez dans "Projet", puis "Options du Projet", 
puis "Options de compilation", afin de régler ce problème. 


Copiez l'exécutable du projet dans le fichier "/var/www/cgi/cgiext.fcg1". 


Créez le répertoire des CGI. Utilisez la commande GNU LINUX "cp", 
de copier grâce au terminal, en mode administrateur : 
mkdir /var/www/cgi 

cp répertoire-en-glissé-déplacé /var/www/cgi/cgiext.fcgi 


° © M Sur WINDOWS 


Il vaut mieux utiliser les DLL ISAPI sous WINDOWS. Cependant, on peut 
utiliser les FastCGI sous WINDOWS pour mettre en place ces FastCGI sous 
GNU LINUX. 


Téléchargez "WAMP"' et installez-le, si vous ne l'avez pas déjà fait. 
Créez le répertoire "C:\wamp\lwww\cgi" et ajoutez-y la DLL SQLITE. Ce 
répertoire sera à affecter à la place de "/var/www/cgi/cgiext.fegi". 


Téléchargez le module FastCGI sur http://www.fastcgi.com. Ajoutez le 
module dans "C:\wamp\bin\apache\ApacheN.N.N\modules". Renommez 
l'extension DLL en so, comme pour le reste des modules. 


Dans le fichier httpd.conf, dans "C:\wamp\bin\apache\ApacheN.N.N\conf”, 


LoadModule fastcgi_ module modules/mod_ fastcgi.so 


Cela ajoute le module fastcgi dans la configuration d'APACHE. 


Sur WINDOWS, APACHE est émulé. Or sur les systèmes UNIX les 
répertoires sont séparés de manière différente. Vous devez remplacer le 
caractère de changement de répertoire "\" par "/". Regardez bien comment 
sont orthographiés les répertoires, dans le fichier de configuration APACHE. 


Copiez les sous-dossiers ExtJS dans le répertoir ext, dans le dossier www de 
WAMP. 


+ © Configurer le serveur FastCGl 


Dans vos Composants EXTPASCAL, copiez l'intérieur du répertoire 
"codepress", à la racine de vos pages Web dans le répertoire "www". 


Sur WINDOWS, ajoutez le chemin complet entre guillemets, avec le caractère 
"/" remplaçant le caractère "\". 

Sur WINDOWS toujours, ajoutez la configuration ci-dessous, à la fin du 
fichier "C:\wamp\bin\apache\ApacheN.N.N\confihttpd.conf". 


Vous pouvez ajouter les lignes précédentes. 
Vous voyez que votre FastCGI peut porter le nom "cgiext.fcgi" sous UNIX, 
ou "cgiext.exe" sous WINDOWS. 

Remplacez "mon.adresse.ip" par l'adresse IP de votre machine, par le nom de 
domaine ou bien par localhost. 

Créez le fichier ‘“/etc/apache2/cgiext.conf”", ou "C:\wamp\bin\apache 
\ApacheN.N.N\conficgiext.conf", grâce à cette commande GNU LINUX en 
_mode administrateur : 
gedit /etc/apache2/cgiext.conf 


_La partie CGI, de GNU LINUX ou WINDOWS, ressemble à celle-ci : 


Include conf-available/serve-cgi-bin.conf 


Ajoutez dans serve-cgi-bin.conf cette configuration APACHE : 


LoadModule fastcgi_module "modules/mod_fastcgi.so" 


<Directory /var/wwwl/cgi-bin> 
Options AII 

AllowOverride All 

Require all granted 

Options +ExecCGI 


SetHandler fcgid-script 

AddHandler fcgid-script .cgi 

Order allow,deny 

Allow from all 
</Directory> 


FastCgiExternalServer  "/var/www/cgi-bin/cgi2015.cgi"  -host 
127.0.0.1:2015 -idle-timeout 30 -flush 


FastCgiExternalServer "/var/wwwl/cgi-bin/cgiB.cgi" -host 
127.0.0.1:9000 -idle-timeout 30 -flush 


ScriptAlias /cgi-bin "/var/wwwl/cgi-bin" 
C’est une configuration GNU Linux. 


Il faut donc télécharger le projet module FastCGI pour Apache, le compiler et 
l'installer. 


Téléchargez les sources en les cherchant. Allez dans le répertoire. Tapez ceci 
en administrateur : 
make top_dir=/usr/share/apache2 

make install top_dir=/usr/share/apache2 

Le répertoire est votre répertoire d'installation Apache. 


2015 est le port de votre Fast CGI. Ce fichier indique que nous exécutons des 
CGI dans le répertoire /var/www/cgi-bin. 
Dans le fichier "“/etc/apache2/apache2.conf" cherchez la ligne "“Include 


Include cgiext.conf 


Vous pouvez maintenant sauvegarder votre travail. Faites une copie de tous 
les fichiers ajoutées. 


letc/init.d/apache2 restart 


Avec FIREFOX allez sur l'adresse IP de votre serveur en tapant dans la barre 
d'adresse : 
http://localhost/cgi/cgiext.fegi 


Votre Logiciel FastCGI démarre. 


+ © L'exemple 


Créez une nouvelle Application EXTPASCAL. Pour ce faire allez dans 
"Fichier", puis "Nouveau", puis "Projet" "EXTPASCAL Application". 


Vous avez une nouvelle fiche EXTPASCAL. Modifiez les propriétés 


"Maximizable", "Maximized" et "Plain" à "True". Modifiez la propriété 
"Resizable" à "False". Nous changeons la présentation du formulaire FastCGI. 


Nous allons remplir le formulaire avec un gestionnaire d'onglets. Ajoutez 
avec la palette "EXTPASCAL" un "TExtTabPanel", et adaptez-le à la fiche. 
"Ajoutez une page” à votre "TExtTabPanel". Donnez-lui le nom de 
"Utilisateurs". 


Nous allons remplir la moitié de l'onglet "Utilisateurs" avec une grille. 
Ajoutez le Composant "TExtGridEditorGridPanel", et adaptez-le à la fiche. 


Ajoutez deux cellules de texte “"TExtFormTextField”", deux labels 
"TExtFormLabel", deux zones de texte "TExtFormTextField". Les premières 
pour le "Nom, les secondes pour le prénom. 
Ajoutez un bouton EXTPASCAL "Ajouter", un bouton "Supprimer", un 
bouton "Ouvrir". 

e Nouveau... 


(:J LOIMPOSANL QU PrOJEL TETILE Description 


Projet An ExtPascal GUI Web 


= Application application. 

Programme simple 
Programme To compile your app, you 
Application console Will need the open-source 
Bibliothèque ExtPascal units: 


Unité FPC - Application console de test http://code.google.com/p/ 
Unité FPC - Application de test extpascal 

Programme "InstantFPC" 

Ÿ-E Paquet 

F] Paquet 

v-G) Applications Daemon (service) 

F] Application Daemon (service) 

F] Module Daemon (service) 

F] Mappeur Daemon (service) 

E) Projets de modèles 


@ Aide @ Annuler | | OK 


Créez une application "EXTPASCAL" 


Créez deux colonnes dans la grille grâce à "ColCount". 
Dans "Columns", associez chaque colonne, la première vers la cellule du 
Nom, la deuxième vers la cellule du Prénom. 


Dans la cellule du Nom, mettez "Datalndex" à 0, car c'est la première colonne 
de la grille. 

Dans la cellule du Prénom, mettez "Datalndex" à 1, car c'est la deuxième 
colonne de la grille. 


Ajoutez les queries IBX et le composant IBUpdate, et nommez les "SQLTool" 
et "SQLUtilisateur". 

Ajoutez le composant IBUpdate, et nommez le "UtilUpdate". 

Ajoutez une connexion IBX et nommez la "Connection". Reliez les queries 
IBX à cet connexion. 


Example 


Utilisateurs 


Le premier exemple EXTPASCAL 


+ © Compiler la FastCGl 


Nous utilisons la librairie EXTJS pour afficher les fenêtres, dynamiquement. 


Dans le "toolkit" ou boîte à outils, Ouvrez le projet "fmtoextp" puis compilez 
le projet. 


Dans un terminal, ou dans la ligne de commande, copiez-collez le lien vers 
l'exécutable créé, puis après un espace copiez-collez le lien vers votre fichier 
"fm", puis un espace, puis copiez-collez le lien vers votre fichier projet "Ipi". 


fmtoextp copié-collé-du-Ifm copié-collé-du-Ipi 


Cette commande peut être exécutée automatiquement, à chaque fois que vous 
compilez votre FastCGI. 
Vous pouvez compiler votre FastCGI. 


+ © Lier avec d'autres paquets 


Avant de lier avec d'autres paquets, il s'agit de supprimer le lien vers le paquet 
LCL. En effet, ces Composants visuels ne sont pas des Composants Web. 


+ © FIREBIRD 


FIREBIRD à besoin de la dernière version stable de sa librairie pour 
fonctionner. On peut utiliser gbak ou Ancestromania pour mettre à jour les 
différentes versions à partir d’un fichier gbk. 


° © M Installation GNU LINUX 


Sur GNU LINUX, téléchargez les paquets "firebird-server" et "libfbclient2". 


° © M Installation WINDOWS 


Allez à http://frebirdsql.org/ et téléchargez la version stable de Firebird. 
Installez la. 


° © M FIREBIRD 


Les bases sont dans databases.conf. Vous pouvez embarquer FIREBIRD. 
Mais sinon FLAMEROBIN sert à créer votre mot de passe. 


Sur GNU LINUX, reconfigurez le paquet firebird-server pour affecter le bon 
mot de passe SYSDBA. 


+ © L'exemple 


Revenons sur notre fiche. 


Dans la fenêtre principale nous allons créer les requêtes entièrement dans le 
Code Source, car EXTPASCAL 0.9.8 ne reconnaît pas encore SQLDB. Vous 
pouvez participer à EXTPASCAL pour remédier à ce problème. 


Vérifiez cependant si EXTPASCAL ne construit pas automatiquement les 
requêtes SQLDB. Regardez dans les Sources créées, avec l'extension "inc", à 
partir du projet de traduction des fiches LAZARUS. 


° ©O HIBX 


Si vous ne voyez pas vos queries IBX construits dans le fichier ".inc" 
renseignez le Constructeur de la fiche : 
constructor TExample.Create; 
Begin 
inherited; 
{$IFDEF UseRuntime} 
{$I u_form.inc} 
gi_RowlIndex := -1 ; 
gd_Utilisateurs.StripeRows:=True; 
Connection := TIBDataBase.Create(nil); 
Connection.DatabaseName 
:=IncludeTrailingPathDelimiter(GetAppConfigDirUTF8(False))+'mabaseweb.db'; 
1! Connection.charset:= 'UTE-8' ; 
SQLTool := TIBQuery.Create(nil); 
SQLTransaction := TIBTransaction.Create(nil); 
SQLTransaction.Database := Connection; 
SQLTool Database := Connection; 
SQLTool Transaction := SQLTransaction ; 
SQLUtilisateur := TIBQuery.Create(nil); 
SQLUtilisateur.SQL.Text := "SELECT * FROM 
UTILISATEUR" ; 
SQLUtilisateur.Database := Connection; 
SQLUtilisateur.Transaction := SQLTransaction ; 
gstl_CleUtilisateur := TStringList.Create(); 
gstl_CleUtilisateur.Add ('CLEP" }; 
gd_Utilisateurs.OnRowClick := GridRowClick; 
{$ENDIF} 


, 


end; 


SQL DB nécessite plus de sources. Il est donc moins automatisé. 


_Renseignez le Destructeur de la fiche : 
destructor TExample.Destroy; 
begin 

inherited; 

{$IFDEF UseRuntime} 
SQLConnection.Free; 
SQLTransaction.Free; 
SQLTool.Free; 
SQLUtilisateur.Free; 
gas_Enregistrements.free; 
gstl_CleUtilisateur.Free; 

{$ENDIF} 

end; 


+ © M Le Logiciel 


; les élé inclus dans la base SQLDB : 
procedure TExample.p_CreeChaineEnregistrements ( var chaîne 
: String ); 
begin 
p_CreeChaineEnregistrements ( chaîne, 
SQLUtilisateur.FieldByName('Nom').AsString, 
SQLUtilisateur.FieldByName('Prenom').AsString, 
SQLUtilisateur.FieldByName('Clep').AsString ); 
SQLUtilisateur.Next; 
End; 


function TExample.CreeChaineAjax ( const s : String ):String; 
Begin 

1! Le Code JAVASCRIPT affiche les chaînes entre des 
guillemets 

Result := StringReplace(s,"",\", [rfReplaceAlI]); 
end; 


procedure TExample.p_CreeChaineEnregistrements(var chaîne: 
String; const s_Nom, 
s_Prenom, s_cle : String); 


begin 
if chaîne > "Then 
chaîne := chaîne + ';'; 
chaîne := chaîne + '[""" + CreeChaineAjax (s_Nom) + "",""" + 
CreeChaineAjax (s_Prenom)+ ""',"""+s_Cle+"'"']'; 
End; 


procedure TExample.AjouterElements; 
var 1 : Longint ; 
s_Records : String; 
begin 
try 
SQLUtilisateur.First; 


// Création du tableau 
while not SQLUtilisateur.EOF do 
Begin 
p_CreeChaineEnregistrements ( s_Records ):; 
End; 
Except 
On e: Exception do 
ExtMessageBox.Alert('Erreur', Problème de gestion des 
données : "+#13#10-+e. Message, Ajax(CloseAjax, l'OK','%0"1)); 
End; 
// Création d'un tableau AJAX 
gas_Enregistrements:= TExtDataArrayStore.Create; 
With gas_Enregistrements Do 
Begin 
//Création de la structure de données 
with TExtDataField.AddTo(Fields) do Begin TypeJS : 
‘String'; Name :='Nom'; End; 
with TExtDataField.AddTo(Fields) do Begin TypeJS : 
‘String'; Name :='Prenom', End; 
with TExtDataField.AddTo(Fields) do Begin TypeJS : 

‘Integer’, Name :='Clep'; End; 

[1 ExtMessageBox.Alert('Erreur’, ‘Impossible d''enregistrer : 

"+#13#10 + 'Il n''y a pas de nom d''utilisateur.'); 

end; 

// Affectation des gas_Enregistrements 
gas_Enregistrements.Data:=gas_ Enregistrements.JSArray(s_Recor 
with gd_Utilisateurs do 

Begin 
SetDisabled(True); 
Reconfigure(gas_ Enregistrements, 


ds,True); 


TExtGridColumnModel(ColModel)); 
SetDisabled(False); 
end; 
ExtMessageBox.Alert('Erreur', s_Records); 
end; 


Puis on ajoute les enregistrements en renseignant l'événement OnClick du 
bouton : 


procedure TExample.AjouterClick; 
Var chaîne : String ; 
Compteur : Int64; 
s_Records : String; 
begin 
if (tf_nom.JsString ( tf_nom.GetValue ) =") Then 
Begin 
ExtMessageBox.Alert(Erreur', JsString ( tf_nom.GetValue 
)+' Impossible d'enregistrer : "+#13#10 + ‘Il n''y a pas de nom 
d''utilisateur.'); 
Exit; 
End; 
with SQLUtilisateur do 
try 
Insert; 
FieldByName('PRENOM').AsString := JsString ( 
tf_prenom.GetValue ); 
FieldByName('NOM').AsString := JsString ( tf_nom 
.GetValue ); 
Post; 
ApplyUpdates; 
SQLTransaction.CommitRetaining; 
ExtMessageBox.Alert("Erreur', ‘Impossible d''enregistrer : 
"4#13#10+SQLTool.SQL.Text+JsString ( tf_nom.GetValue )); 
Except 
On e: Exception do 
with SQLUtilisateur do 
Begin 
ExtMessageBox.Alert('Erreur', "Impossible d''enregistrer 
: '+#13#10+e.Message, Ajax(CloseAjax, ['OK", '"%0"T)); 
Exit; 
end; 
End; 
s_records := "; 
p_CreeChaineEnregistrements ( s_Records, JsString (tf_ nom 
.GetValue ), JsString ( tf_prenom.GetValue ), IntTostr ( 


Compteur ) ); 
try 
gd_Utilisateurs.SetDisabled(True); 
TExtDataArrayStore(gd_Utilisateurs.GetStore ).Insert(O, 
JSArray('new Ext.data.Record ("''+JsString (tf_ nom .GetValue 
}+'",""4JsString ( tf_prenom.GetValue }+'")')); 
finally 
gd_Utilisateurs.SetDisabled(False); 
end; 
End; 


procedure TExample.EffacerClick; 
var datastore: TExtDataStore; 
datarecord : TExtDataRecord; 
ATemp : String ; 
begin 
datastore := TExtDataStore ( gd_Utilisateurs.GetStore ); 
ATemp := JSString(datastore.GetCount ); 
if SQLUtilisateur.Active 
and not SQLUtilisateur.IsEmpty 
and ( gi_Rowlndex >=0) 
and ( gi_RowIndex < StrToÏnt(ATemp)) 
Then 
Begin 
datastore := TExtDataStore ( gd_Utilisateurs.GetStore ); 
ATemp := JsString(TExtDataRecord(datastore.GetAt( 
gi_Rowlndex }).Get('Clep')); 
SQLTool.SQL.Text :='DELETE FROM UTILISATEUR 
WHERE CLEP='+ATemp; 
SQLTool.ExecSQL ; 
SQLTransaction.CommitRetaining; 
with gd_Utilisateurs do 
Begin 
setDisabled ( True ); 
datastore := TExtDataStore ( GetStore ); 
datarecord := TExtDataRecord(datastore.GetAt( 
gi_Rowlndex )); 
datastore := TExtDataStore ( GetStore ); 
datastore.remove ( datarecord ); 
Reconfigure ( datastore, 
TExtGridColumnModel(ColModel) ); 
setDisabled ( False }); 
end; 


End; 
end; 


Compilez. Mettez en place la CGI sur APACHE dans le répertoire cgi, en 
enlevant l'extension, redémarrez le serveur. 


Tapez http://localhost/cei/cgiext.cgi. Vous voyez l'exemple s'afficher. 
Si les événements ne sont pas affectés dans la CGI, Exécutez l'Application de 


conversion d'unité EXTPASCAL, comme nous l'avons vu précédemment. 
Recompilez alors la FastCGI. 


- © Surle Web 


Quand vous possédez un domaine, n’oubliez pas d’y mettre votre prénom 
suivi de votre nom ou votre nom d’association voire d’entreprise dans la 
propriété DNS TXT ownercheck.votredomaine.ext. Cette propriété TXT était 
anciennement utilisée par GOOGLE. Elle est utilisée dorénavant par 
GOOGLE et ses concurrents. 


De PASCAL à FREE PASCAL 


CREATIVE COMMON BY SA 


+ © Introduction 


FREE PASCAL permet de créer des savoir-faire multi-plates-formes à partir 
de votre savoir-faire WINDOWS comme DELPHI ou TURBO PASCAL. 


À partir de ces savoir-faire ou Logiciels, on crée des librairies FREE 
PASCAL. Cependant cela demande l'adaptation d'une partie des Sources. 


+ © Trouver des sources Pascal 


+ © M Trouver de vieilles sources 


Le Pascal est un vieux langage, devenu objet et RAD ensuite. Il existe donc de 
nombreuses sources Pascal à disposition. 


Des regroupements de sources se trouvent dans les archives de Delphi Super 
Page, mais aussi sur Codes Sources Pascal. Cependant, beaucoup de sources 
sont sans licence. Donc il vous reste une licence à définir. 

Sachez que beaucoup d'entreprises privatives ont déjà utilisées ces sources. Si 
plus de 80 % des sources du privatif viennent du libre, il s'agit de compter en 
plus les sources sans licence, notamment en Pascal. On peut s'approprier des 
sources cruciales en participant à des projets gratuits mais financés. C'est le 
cas pour Virtual Pascal, qui a permis d'améliorer l'assembleur de Free Pascal 
3.0, créant les nouveaux compilateurs. On constate donc que le privatif est 
inutile voire coûteux et redondant, de mauvaise qualité ou cher alors. 

On remarque que certaines sources étaient privatives au départ. Sachant, que 
les sites web cités sont disponibles depuis longtemps, il y a autorisation à la 
réutilisation, puisque les auteurs et le dirigeant de l'entreprise de l'époque 
auront très facilement pu enlever les sources depuis ce temps là. Par contre, il 
est utile de contacter ces personnes pour définir une licence. 


+ © M Trouver de nouvelles sources 


Il existe le forum Free Pascal à ce propos, ainsi que les réseaux sociaux, les 
Chambres de Commerce et d'Industrie, les GUL, les LabFab, les forges 
d'écoles ou de centres de recherche, de collectivités aussi, voire des sites web 
d'indépendants. 

Comprendre et participer à l'économie permet d'engager le partage de 
nouvelles sources. Sachez que des étudiants qui apprennent l'informatique 
peuvent créer et partager des sources de façon libre. Donc aller dans les écoles 
bénévolement permet d'engager ces écoles. 

Aussi, les pays s'aperçoivent au bout d'un certain temps que le manque de 
partages peut créer une perte d'énergie ou de travail telle que des chercheurs 
demandent à créer ces partages. 

Ainsi, le Brésil, malgré qu'il fût sorti des BRICS, a demandé le soutien des 
pays de l'Intelligence Artificielle, pour créer des sources Pascal de réseaux 
neuronaux. Les pays de l'Intelligence Artificielle sont la Chine avec les pays 


liés pour le logiciel, les États-Unis, la Russie, l'Inde, le Canada et la France. 
On constate des liens forts entre la France et le Brésil au moment du partage 
de cette IA. Alors, l'Afrique dispose d'une IA à comprendre pour automatiser 
le BPM RAD. 


+ © Migrations 


Beaucoup d'éditeurs utilisent de vieilles versions de leur outil. En effet ils ne 
savent pas comment migrer vers une nouvelle version du vieil outil. Aussi, en 
période de contraction de l'économie, les entreprises ont du mal à voir sur le 
long terme. 


Il est pratiquement impossible de migrer un Logiciel non RAD vers de 
nouveaux Frameworks. Avec un outil non RAD), le choix du Framework est 
donc primordial. Ce Framework doit être suffisamment simple et ingénieux 
pour gagner du temps. 


W4 EXPRESS est un moteur qui transforme une analyse en Logiciel avec un 
moteur Logiciel. La personnalisation peut se programmer avec des plugins 
appelés "behaviors". [Il permet aussi d'ajouter des systèmes d'exploitation en 
ayant le minimum à programmer. Ainsi les intégrateurs W4 EXPRESS ont pu 
bénéficier de ANDROID et IOS en 2013, sans rien avoir à programmer. Il 
existe dorénavant en 2018 beaucoup de moteurs BPM libres en JAVA. 


Il existe ATK FRAMEWORK ou JELIX JFORMS en PHP. Le Framework 
ATK permet aussi de créer un Logiciel léger à partir des données. Il est 
possible d'utiliser les fichiers passifs des moteurs libres de BPM pour créer les 
interfaces JELIX ou ATK. Ces Frameworks sont faits pour que vous y 
participiez. Ils permettent de créer des Logiciels fiables vite. 


Malgré tout, le problème des langages non RAD), c'est qu'ils ont tendance à 
complexifier la programmation. Aïnsi la difficulté à programmer va créer de 


l'incompréhension chez les programmeurs, conduisant à des Sources mal 
élaborées, voire mal présentées. 


Avec un outil de DRA il est possible de migrer plus facilement, si son outil de 
DRA possède beaucoup de Composants avec des Sources. En effet les 
Sources permettent non seulement de fiabiliser son Logiciel, pour trouver les 
défaillances, mais aussi des Sources pourront facilement migrer vers une 
nouvelle version de l'outil. 


Par contre surcharger les Composants sera nécessaire. En effet, créer des 
composants permet de commencer la migration en créant à la fois un savoir- 
faire Logiciel, mais aussi en permettant un transfert vers le nouvel outil petit à 
petit. Le savoir-faire créé permettra par ailleurs de trouver de nouveaux 
clients. On crée alors une méthode et des mots-clés de ce que l'on avait 
élaboré. Cela permet de créer différentes versions de ses Logiciels plus 
facilement, de façon centralisée, simple, structurée et intuitive avec son outil 


de DRA. 


Si des Composants n'existent plus sur la nouvelle version de l'outil et que les 
Sources ne sont pas Libres, il sera nécessaire aussi de surcharger d'autres 
Composants. On crée les propriétés manquantes avec la surcharge. On crée un 
Logiciel permettant de remplacer certains mots clés par d'autres. C'est l'outil 
de migration. 


Le savoir-faire permettra aussi d'envisager une automatisation utilisant 
l'ingénierie pilotée par les Modèles. Contrairement à l'Architecture Pilotée par 
les modèles, on ne crée pas de Sources risquant de ne plus recréer le modèle. 
L'Ingénierie Pilotée par les Modèles va permettre de créer un moteur lisant 
l'analyse pour créer le Logiciel, en automatisant les Composants par la 
surcharge. 


On surcharge aussi les Composants pour permettre plus de possibilités au 
Logiciel. Par exemple en automatisant la création de rapports, il est 
maintenant possible, dans le savoir-faire libre sur LAZARUS nommé 
EXTENDED, de permettre à l'utilisateur d'adapter la largeur des colonnes de 
son impression. EXTENDED permettra de migrer un Logiciel fait en 
DELPHI vers LAZARUS. 


LAZARUS permet de passer à GNU LINUX. LINUX vous apporte la rapidité 
du noyau LINUX, démontrée par la plate-forme STEAM. Vous disposez aussi 
de la rapidité des dernières partitions adaptées aux disques durs récents. Il y a 
aussi la sécurité UNIX et celle des Logiciels partagés. Par contre il sera 
intéressant de rester compatible DELPHI. En effet DELPHI est plus rapide 
que LAZARUS sur WINDOWS, même s'il utilise plus de ressources 
mémoire. 


LAZARUS permettra de migrer régulièrement, donc plus facilement. En effet 
il n'y aura plus besoin d'acheter un ensemble de licences pour le développeur. 
Par contre les langages Libres demandent souvent une participation partagée 
lors des migrations, surtout lorsqu'on passe de DELPHI à LAZARUS. 


- © De TURBO PASCAL vers FREE 
PASCAL 


Pour transférer un Logiciel TURBO PASCAL textuel il suffit de réutiliser les 
bonnes unités. Elles se trouvent nécessairement dans LAZARUS ou FREE 
PASCAL. 


Pour transférer un savoir-faire TURBO PASCAL graphique : 
® Insérez la partie graphique dans une fenêtre et adaptez la taille 
graphique à la fenêtre 
® Ou bien recréez la partie graphique avec les Composants visuels 


+ © M Mes bases ne peuvent pas être 
migrées 


Il y à différentes raisons pour qu'une source de données ne soit pas sur la 
dernière version du système d'exploitation : 

® Il y a mieux comme source de données. 

® La source de donnée n'était pas libre et elle a été censurée. 

® Vous n'avez pas cherché au bon endroit. 


De vieux Composants Libres peuvent suffire. Vous en avez de répertoriés sur 
le site lazaruscomponents.com. Cependant LAZARUS permet d'utiliser des 
Systèmes de Gestion de Bases de Données. Si votre base à migrer ne peut pas 
être utilisée avec les Composants visuels c'est que votre Base de Données ne 
peut facilement garder l'intégrité des données. Il est même possible qu'elle ne 
puisse pas accepter un nombre suffisant d'utilisateurs. La migration vers 
LAZARUS demandera alors d'utiliser les Composants visuels avec les accès 
aux données hérités de TDataset. Les TDataset permettent d'utiliser les SGBD 
définis plus haut. 


En effet permettre une intégrité des données avec les clés et une utilisation 
centralisée est possible avec les SGBD. FIREBIRD permet en plus de garder 
l'ancienne utilisation sur un seul ordinateur. 


+ © Gestionnaire de données 


Si vous souhaitez beaucoup d'utilisateurs ou de données créez un lien vers un 
Système de Gestion de Base de Données, comme FIREBIRD, SQLITE, 
MARIA DB, voire ORACLE. 


FIREBIRD et SQLITE sont des S.G.B.D. mi-lourds suffisants pour tout 
Logiciel installé facilement. Ils s'utilisent en Embarqué. 


MARIA DB permet lui de faire évoluer votre serveur de données en serveurs 
de données répartis nommés "clusters". ORACLE lui permet de créer un seul 
serveur de données très lourd. 


Il est possible d'utiliser des gestionnaires de données mi-lourds, si votre 
entreprise est répartie. On crée un réseau maillé permettant de dupliquer les 
informations. Le siège prend le pas sur les filiales. 


+ © M Spécialiser vos Composants 


Il est intéressant d'utiliser des Composants spécifiques à une base de données 
car leur création a été optimisée pour une seule source de données. 


Si vous changez de Composants d'accès aux données il est important de savoir 
si votre Logiciel pourra fonctionner de la même manière. Par exemple l'accès 
aux données BDE permet de modifier une union de tables pour sauver dans la 
table maître. 


Les Composants spécialisés IBX pour FIREBIRD demandent à créer 
automatiquement des requêtes afin de personnaliser la modification, la 
suppression, pour créer des ensembles complets de données. 


Des projets comme MAN FRAMES permettent de changer et d'utiliser 
facilement vos Composants d'accès aux données. MAN FRAMES permet de 
gérer plusieurs paquets d'accès aux données. Le fichier INT configurera alors 
votre accès aux données automatiquement. 


- © De DELPHI vers LAZARUS 


Passer de DELPHI à LAZARUS consiste essentiellement à réutiliser des 
Composants LAZARUS à la place de Composants DELPHI. Il s'agit donc de 
migrer vers des Composants Libres. EXTENDED pour LAZARUS fut 
compatible avec DELPHI XE 5. 


Il est possible de remplacer les Composants non traduits par de nouveaux 
Composants LAZARUS. Si vous voulez et si vous disposez des Sources, vous 
pouvez aussi traduire des Composants DELPHI vers LAZARUS. 


Vous aurez sans doute à ajouter les unités communes LAZARUS comme 
"LCLType" ou "LCLIntf". Ces librairies remplacent certaines unités de 
DELPHI comme l'unité "WINDOWS". 


Pourquoi n'a-t-on pas gardé certaines unités DELPHI ? 


Les librairies LAZARUS possèdent une nomenclature. Une librairie 
possédant le mot "win" est une librairie système spécifique à la plate-forme 
WINDOWS. Elle ne doit pas être utilisée directement dans vos programmes. 
Les unités "etk" ou "qt" servent à GNU LINUX, "carbon" et "darwin" à MAC 
OS, "unix" à UNIX. 


La configuration de construction de LAZARUS vous montre l'ensemble des 
plates-formes indiquant les unités à éviter. Dans les Sources de LAZARUS, 
vous voyez des unités commençant pas ces plates-formes ou comportant ces 
noms de systèmes. 


Il est possible que son Logiciel reste compatible DELPHI, grâce aux 
directives de compilation. Cela permet d'alléger l'exécutable WINDOWS. 


Cependant, si vous utilisiez avant des tables pouvant difficilement être 
utilisées en réseau, il est préférable de migrer vos tables DBASE ou 
PARADOX vers FIREBIRD. Cela sera beaucoup plus facile à gérer ensuite. 
En effet FIREBIRD peut aussi bien s'utiliser sans serveur qu'avec, ceci avec 
des composants plus faciles à gérer parce que complets. 


Il existe des freewares pour passer à FIREBIRD. Préférez cependant les 
Logiciels libres comme FLAMEROBIN. En effet ces Logiciels peuvent être 
modifiés plus facilement. Cela ne veut pas dire qu'ils évoluent plus vite. Par 
contre ces outils vont vers l'utile. 


Un convertisseur LAZARUS est disponible complètement sur 
lazaruscomponents.com. Elle permet de remplacer des Composants comme 
DEV EXPRESS afin de convertir un projet DELPHI. Vous avez dans les 
"Outils" un convertisseur simplifié de projet, permettant de finaliser ensuite. 


Une fois que l'on a changé les Composants 1l existe des outils LAZARUS 
permettant de continuer la traduction. Il sont dans le menu "Outils" de 
LAZARUS. Il vous reste alors à finir à la main. 


- © Les directives de compilation 


Les instructions de compilation permettent de porter son programme vers les 
différentes plates-formes. Elles définissent une façon de compiler l'unité. Elles 
sont donc à placer au début de l'unité. 


Les directives de compilation doivent être idéalement placées dans un fichier 


unique portant l'extension "inc". 


Les directives de compilation permettent d'alléger efficacement les sources. 
Aussi l'optimisation des sources permet de gagner du temps. 

Ainsi, vous pouvez facilement éluder un paquet en le déliant. Vous éludez 
ainsi chaque paquet en créant la directive associée. Comme cela vos paquets 
pourront facilement être allégés, ce que ne peut pas faire JAVA ou PHP. 


+ © M Exemple 


Voici une version allégée du fichier ".inc" des Composants "EXTENDED". 


{ $SDEFINE CSV} 
{ $DEFINE RX} 
{ $DEFINE MAGICK} 
{ $DEFINE IBX} 
{SIFDEF FPC} 
{$SDEFINE ZEOS} 
{$ELSE} 
{SDEFINE ZEOS} 
{$SDEFINE JEDI} 
{$ENDIF} 


Ce fichier "inc" permet de définir quels Composants vont être éludés dans 
DELPHI et FREE PASCAL COMPILER sans avoir à supprimer du code. 


Une directive de compilation peut devenir un commentaire, si le $ ne suit pas 
l'accolade. 


Lorsqu'on est sur les deux plate-formes on utilise ici les Composants d'accès 
universel aux données ZEOS, présents sur les deux plates-formes. 


Lorsqu'on est sur LAZARUS on peut utiliser ZEOS. ZEOS permet d'accéder à 
beaucoup de bases sur LAZARUS. Les Composants ZEOS non spécialisés ne 
sont pas les plus rapides malgré tout. 


Lorsqu'on est sur DELPHI on utilise JEDI qui n'est pas encore complètement 
traduit sur LAZARUS. 


Des unités du projet "EXTENDED" comporteront l'inclusion de ces 
directives : 
{$I ..\extends.inc} 


Le fichier des directives doit être placé à la racine de votre projet afin de 
centraliser. On descend alors d'un répertoire comme ci-dessus. 


Vous pouvez utiliser aussi les directives : 
® IFNDEF pour vérifier la non-existence d'une définition. 


® UNDEF pour supprimer temporairement une définition. 


Ces directives servent notamment à définir des OÙ à partir d'ensembles de 
définitions. 


+ © HE Compatibilité DELPHI 


» D A A 


ojci une instruction de compilation FR ASCAL : 

{$mode DELPHI} // Compilation compatible DELPHI 
Il existe des DELPHI gratuits, permettant de réaliser des applications non 
commerciales. Si quelqu'un vous demande d'être compatible DELPHI vous 


pouvez le faire grâce à une vieille licence de DELPHI 2005. L'éditeur de 
DELPHI reconnaît les fichiers UTF8 à partir de 2005. 


L'instruction de compilation, qui permet à FREE PASCAL de rendre le Code 
Source compatible DELPHI, n'est pas lisible par DELPHI. 
On peut y ajouter une directive de compilation pour DELPHI si on l'utilise. 


Nous avons vu la notion de pointeur dans le chapitre sur la Programmation 
Procédurale avancée. 
Le mode DELPHI permet de supprimer une partie de la notion d'adresse de 
pointeur. Cela n'est pas gênant, au contraire, car DELPHI et LAZARUS 
protègent les pointeurs. 


Les pointeurs sont des adresses en mémoire, redirigeant vers un autre endroit 
de la mémoire. Ils permettent de manipuler les Objets. En mettant en mode 
DELPHI vous pouvez oublier les pointeurs en partie, car le compilateur FREE 
PASCAL n'est pas entièrement compatible avec ce mode. 


Le développeur a besoin de manipuler des Objets, pas de gérer des pointeurs. 
Le pointeur peut cependant être utile pour scruter les tableaux. PASCAL 
Objet permet toujours cela. 


Il est possible en PASCAL d'éluder totalement les affectations de pointeurs, 
_grâce à cette directive à ajouter à tout formulaire : 

{$IFDEF FPC} 

{$mode DELPHI} 

{$R *.Ifm} 

{$ELSE} 

{$R *.dfm} 

{$ENDIF} 


Ces directives peuvent être mises en tout début d'unité et une seule fois. Elles 
définissent comment va être compilée l'unité. 


Un fichier "dfm" est une correspondance DELPHI du fichier "lfm" avec 
LAZARUS. Les fichiers "dfm" et "lfm” contiennent les informations des 
Composants chargés dans un module de donnée, ou un formulaire. Les 
Composants de ces entités sont visibles dans l""Inspecteur d'Objets". 


Ici l'instruction de compilation "Mode DELPHI" est exécutée si on utilise le 
Compilateur FREE PASCAL. Aussi on charge le fichier "lfm”. Sinon on 
charge les Composants contenus dans le fichier "dfm". Si votre unité n'est ni 
un formulaire, ni un module de données, vous pouvez enlever les directives de 
chargements de fichiers "Ifm" et "dfm”. 


Cette directive de compilation permet de placer une instruction DELPHI dans 
Code : 
{$IFNDEF FPC} 
const DirectorySeparator = \'; 
{$ENDIF} 


Ci-avant on définit le caractère de séparation de répertoire quand on est sur 
DELPHI. Cette déclaration existe déjà en FREE PASCAL. Seulement 
certaines versions de DELPHI, compatibles uniquement avec WINDOWS, ne 
déclarent pas de constante de séparation de répertoire. 


En effet lorsqu'on crée un Logiciel multi-plates-formes, il est nécessaire de 
penser aux différences entre les différentes plates-formes. Aussi penser aux 
erreurs pouvant se produire permet de sécuriser son Logiciel. 


+ © Traduction de Composants 


Pour traduire un Composant DELPHI vers LAZARUS, il est préférable que ce 
Composant reste compatible DELPHI, grâce aux directives de compilation. 
Cela permet de participer au projet existant en centralisant les Sources. 


Remplacez le Code graphique et le Code système, avec les liens vers les 
librairies WINDOWS, par du Code Source LAZARUS. LAZARUS possède 
une large bibliothèque de Codes Sources. Des Composants Libres DELPHI 
peuvent être traduits vers LAZARUS. 


Le Code graphique LAZARUS utilise les différentes librairies Libres de 
chaque plate-forme. Ces différentes librairies sont homogénéisées en des 
librairies génériques. 


Les unités à ne pas utiliser sont les unités spécifiques à une seule plate-forme, 
comme les unités : 

"win" pour WINDOWS 

"etk" ou "at" pour GNU LINUX 

"carbon" ou "cocoa" pour MAC OS 

"unix" pour UNIX 


Si vous êtes obligé d'utiliser une de ces unités, sachez que vous aurez peut- 
être une unité générique dans la prochaine version de LAZARUS. Votre 
Composant sera compatible avec la seule plate-forme de l'unité non générique 
utilisée. 

Si vous ne trouvez pas ce qu'il vous faut, recherchez dans les Sources 
LAZARUS ou FREE PASCAL. Contactez sinon un développeur LAZARUS. 
Il vous indique alors ce que vous pouvez faire. 


Cross-combpilation et QT 
CREATIVE COMMON BY NC-ND 


- © Introduction 


Un exécutable en Code Binaire ne peut pas fonctionner sur toutes les 
machines. 


Le Code machine que vous créez avec LAZARUS permet certes d'être plus 
proche de la machine, donc plus rapide, mais il demande de posséder un 
certain environnement Logiciel et matériel. 


Tout d'abord le processeur est l'architecture matérielle. L'environnement est 
l'architecture logicielle. Ces deux architectures nécessitent des exécutables 
différents. 


Cependant, vous pouvez faire fonctionner vos exécutables sur une machine 
virtuelle JAVA en créant du Byte Code PASCAL. Cette machine virtuelle 
peut être utilisée sur beaucoup de processeurs. Seulement il faudra utiliser le 
Java Runtime Environment ou JRE pour exécuter, avec le Java Development 
Kit ou JDK pour tester. 


Il est conseillé d'utiliser Lazarus pour développer, puis d'utiliser Code Typhon 
pour porter vers d'autres plates-formes. 


+ © QT 


QT est disponible sur GNU LINUX, WINDOWS, MAC OSX. 
LAZARUS permet de créer facilement des applications multi-plates-formes 
avec QT. 


Pour arriver à cela, il est nécessaire de remplacer les événements de TForm 
par une surcharge des procédures DoShow, Loaded, anisi que du constructeur 
Create et du destructeur destroy. En effet, QT ne gère pas d'événement sur le 
formulaire. 


LAZARUS a besoin de qtépas ou qt5pas pour compiler. Vous pouvez utiliser 
Code Typhon, ensuite, afin de télécharger qtépas-dev ou qt5pas-dev pour 
votre plate-forme. 


- © Le projet FPC UP DELUXE 


Avec FPC UP DELUXE, vous n’avez qu’à télécharger cet exécutable en 
cherchant les mots clés précédents. 


Vous pouvez alors télécharger l’exécutable pour votre machine. Il faut 
installer UNZIP, GIT et SUBVERSION, voire MERCURIAL. 


Installez les paquets crossbuild sous GNU LINUX. 


Affectez au répertoire de FPC UP DELUXE la dernière version de 
LAZARUS. 


Il faut commencer par compiler LAZARUS afin de créer un lien de démarrage 
d’une copie de LAZARUS. Notez bien que tous les LAZARUS ne compilent 
pas avec tous les compilateurs FPC. Pour faire simple, choisissez la dernière 
version stable de LAZARUS avec la dernière ou l’avant dernière version 
stable du compilateur. 


La compilation démarre. Regardez bien les erreurs en rouge et installez ce qui 
manque. 


Vous avez installé un LAZARUS cross. Maintenant il faudra garder cette 
version de LAZARUS dans ce répertoire. 


Si vous changez de version de LAZARUS, effacez les répertoires fpesource et 
lazarus. Mieux, placez FPC UP DELUXE dans un nouveau dossier. 


Voilà. Vous pouvez commencer à compiler pour d’autres machines dans 
l’onglet "Cross". 


On peut compiler du Linux avec beaucoup de plateformes. On peut compiler 
WINDOWS avec 1386, x86_64, ARM. Essayez mais ça prend du temps. On 
peut compiler pour FREE BSD, OPEN BSD ou SOLARIS. Mac OSX c’est le 
projet DARWIN. 


+ © Le projet CODE TYPHON 


Si vous voulez compiler facilement vos exécutables vers un maximum de 
machines avec une pré-version de LAZARUS, il existe le projet CODE 
TYPHON. 


Ce projet regroupe des Composants multi-plates-formes, ainsi que des 
binaires permettant la Cross-Compilation facile, jusqu'aux librairies 
permettant la compatibilité ANDROID et iOS. 


En 2018, le projet, Libre et propriétaire, est hébergé chez 
www.pilotlogic.com. 


Seulement Code Typhon n'utilise en 2018 que la version LAZARUS en cours 
de développement. 


oO Les architectures 


Une plate-forme est une architecture logicielle possédant une architecture 
matérielle. 


La cross-compilation consiste à compiler un exécutable d'une plate-forme vers 
une autre plate-forme. 


Il est en théorie possible, avec LAZARUS, de compiler un exécutable pour 
une autre plate-forme. Cela est très utilisé lorsqu'on veut diffuser ses 
exécutables. Par exemple vous pouvez diffuser votre exécutable pour les 
téléphones mobiles, WINDOWS, LINUX, MAC OSX, etc. 


° © M Architectures matérielles 


On répertorie beaucoup d'architectures matérielles. Vous pouvez voir 
beaucoup d'architectures matérielles en téléchargeant un GNU LINUX sur le 
site web de LINUX DEBIAN. 


© M BH Architectures actuelles 


Les vieux ordinateurs 16 bits, possédant donc 216 entiers de nombres binaires 
allant jusqu'à 216, ne sont plus compatibles avec les environnements actuels. 
En effet un entier de 16 bits possède un maximum de 65 335 entiers de 16 bits 
à gérer en mémoire. Ce n'est pas suffisant pour une mémoire actuelle. 


En 2012 vous compilez donc des exécutables pour les architectures 32 ou 64 
bits sur les ordinateurs de bureau, en 64 bits sur les serveurs. Vous compilez 
pour les architectures puissantes en 64 bits, grâce à LAZARUS et aux unités 
agréées 64 bits. 


Les architectures récentes possèdent évidemment d'autres contraintes que la 
taille de leurs adresses. Nous vous expliquons cela ci-après. 


© M MH Architecture CISC 


CISC signifie en anglais Complex Instruction Set Computer. Un processeur 
CISC est un microprocesseur à jeu d'instruction étendu. 


L'architecture CISC est une architecture avec beaucoup d'instructions, 
permettant les explosions combinatoires, pour les jeux 3D par exemple. Les 
explosions combinatoires peuvent faire planter un processeur CISC. 


Les architectures 1486 à 1686 sont les architectures PC compatibles en full 32 
bits. Les processeurs Intel 386, précédant les 486, étaient les premiers 
ordinateurs PC 32 et 16 bits. L'architecture 1686 est l'architecture PC plus 
récente en 32 bits. Elle correspond au premier PENTIUM, processeur encore 
trop vieux pour faire tourner une application visuelle. 


L'architecture 1486 accepte WINDOWS, LINUX, voire les vieux MAC OSX. 
Les environnements 1486 sont compatibles avec les processeurs 64 bits. 


L'architecture 1386 permet d'utiliser moins de 4 Go de mémoire vive. Si on 
possède au moins 4 Go de mémoire il est intéressant de passer à une 
architecture 64 bits très puissante. 


L'architecture AMD 64 bits est la première architecture 64 bits. Cette 
architecture est disponible sur LINUX, WINDOWS, MAC OSX. Les 
processeurs AMD 64 bits et INTEL 64 bits sont compatibles avec un 
environnement pour AMD 64 bits. Les AMD restent rapides sur GNU 
LINUX. 


© M MH Architecture RISC 


RISC signifie en anglais Reduced Instruction Set Computer. Un processeur 
RISC est un microprocesseur à jeu d'instruction réduit. L'architecture RISC 
comporte peu d'instructions au sein du processeur. Cela permet de l'économie. 


Un processeur RISC est plus fiable qu'un processeur CISC. L'aviation et 
l'espace utilisent des processeurs RISC. 


Les processeurs CISC évoluaient plus facilement que les processeurs RISC. 
Les deux architectures sont à égalité maintenant. Il est cependant important de 
connaître les générations de processeurs RISC. En effet, chaque nouvelle 
génération de processeur RISC nécessite un exécutable différent en binaire ou 
un même exécutable en Byte-code. 


L'architecture ARM est une architecture RISC au niveau du cœur, CISC 
autour. Donc, pour que le processeur RISC soit fiable, il s'agit d'utiliser le 
cœur uniquement. Les processeurs ATOM, souvent spécialisés par rapport à 
l'objectif voulu, sont préférables pour la bureautique sur GNU LINUX aux 
équivalents CELERON, aux processeurs ARM sinon, toujours sur GNU 


LINUX. 


Le processeur ARM est disponible dans les SMARTPHONES, les GOOGLE 
PHONES, les SMARTBOOKS. Le mot "SMART" signifiait qu'on utilisait 
des processeurs ARM. Ce sont des téléphones et des ordinateurs très fins. 


Les téléphones ARM utilisent GNU LINUX, WINDOWS PHONE ou WIN 
CE, des WINDOWS amoindris pour supporter l'ARM. Le GOOGLE PHONE 
possède l'environnement ANDROID basé sur GNU LINUX, environnement 
le plus répandu en 2013. SYMBIAN OS, l'environnement le plus répandu en 
2010, se cross-compile sur WINDOWS. 


Il existe encore d'autres architectures moins utilisées, comme SPARC pour 
JAVA, MIPS encore plus économique que ARM mais peu puissant, des 
processeurs HP ou IBM spécifiques. 


+ © M Architectures logicielles 


Les trois architectures logicielles les plus connues sont : 
e WINDOWS 
® GNU LINUX, d'origine UNIX 
° UNIX 
® MAC OS, basé sur UNIX BSD 


O M Ze monopole WINDOWS 


WINDOWS a été la première architecture logicielle graphique largement 
diffusée. MICROSOFRT, le distributeur de WINDOWS, a donc utilisé son 
monopole pour garder ses clients, car WINDOWS est payant. Vous payez 
WINDOWS au moins 30 €, voire jusqu'à 2000 € rien qu'en achetant une 
machine avec WINDOWS avec d'autres Logiciels. Le prix de 30 € de 
WINDOWS, sur une machine d'un constructeur, est dû à la concurrence 
GNU LINUX, demandant un maximum de 30 € d'installation sur une machine 
d'un constructeur. Si vous achetez une licence d'un WINDOWS récent seule 
vous payez 60 €, sans pouvoir utiliser l'environnement à plein escient. 


WINDOWS est un environnement qui évolue peu. MICROSOFT le modifie 
que lorsqu'on lui signale des failles de sécurité, ou lorsqu'il y a une nouvelle 
version de WINDOWS. II s'agit le plus souvent de nouveaux Logiciels 


intégrés à l'environnement. 


Pour trouver les failles de sécurité WINDOWS, des développeurs étudient le 
Code binaire de l'environnement, sans forcément divulguer leurs trouvailles. 


WINDOWS gère donc toujours très mal les virus. C'est le seul environnement 
où l'anti-virus est obligatoire. C'est aussi un environnement avec publicités. 


WINDOWS, comme il évolue peu, est de plus en plus gourmand. WINDOWS 
7 demande 1 Go de mémoire vive pour fonctionner correctement. Pourtant 
WINDOWS 95 demandait 64 Mo de mémoire vive pour fonctionner, soit 20 
fois moins. 


WIN CE et WINDOWS Mobile, des WINDOWS peu gourmands, ont donc 
beaucoup de mal à s'implanter en Embarqué. Ils sont lents avec peu de 


possibilités. 


WINDOWS est disponible sur processeurs INTEL et ARM. 


° © M M Choisir GNU LINUX 


GNU LINUX peut être installé gratuitement, en téléchargeant un CD 
d'installation sur INTERNET. GNU LINUX permet d'avoir des serveurs 
puissants consommant peu de ressources, ceci à moindre coût. Ces serveurs 
n'ont pas besoin d'interface graphique, car cela consomme de la mémoire. 


GNU LINUX est un descendant d'UNIX. C'est un UNIX sous licence libre, 
créé grâce à Richard STALLMAN puis Linus TORVALDS. Il utilise 
notamment la licence libre virale GPL. On peut donc le modifier comme on le 
souhaite. Des projets LAZARUS existent pour gérer LINUX. 


Comme GNU LINUX est Libre, il existe toutes sortes de distribution LINUX, 
répondant à une demande de l'utilisateur. Les distributions LINUX DEBIAN 
et LINUX UBUNTU se mettent à jour facilement grâce au réseau. 


Après WINDOWS, LAZARUS est beaucoup développé sur GNU LINUX. En 
effet, LAZARUS permet de créer des Logiciels pour les bureaux LINUX 
GNOME, et LINUX KDE. 


GNOME et KDE sont les deux principaux environnements graphiques de 
GNU LINUX. Par exemple GIMP utilise l'environnement GNOME, par 
ailleurs disponible sur WINDOWS. LINUX GNOME est référencé dans 
LAZARUS par GTK, puis GTK2 et GTK3 plus jolis. KDE est référencé par 


QT pour QTA4, et QTS pour QTS. 


LINUX est utilisé en Embarqué sur les SMARTPHONES ou TABLETTES 
comme GOOGLE ANDROID, sur la plupart des BOXS, sur les liseuses. En 
général, quand un fabricant a développé la partie logicielle de son ordinateur à 
moindre coût, il a choisi LINUX. 


Les processeurs POWER PC sont les processeurs des IMACS. Vous pouvez 
installer un LINUX POWER PC sur un IMAC. Cependant, laissez le MAC 
OSX dessus car les IMACS sont tatoués. Ils interdisent le remplacement 
complet de l'environnement. 


Beaucoup d'analystes programmeurs LINUX sont encore adeptes de l'éditeur 
de textes sans outil supplémentaire. Le RAD non enseigné en 2017 est 
pourtant des plus simple et rapide. 


GNU LINUX est disponible sur la plupart des architectures matérielles. En 
effet les développeurs, qui participent à LINUX, s'attachent à l'interopérabilité 


de leur environnement préféré. 


L'accessibilité pour la situation de handicap coûte en 2015 0 € grâce à LINUX 
DEBIAN sur GNOME. 


Le livre "L'Astucieux LINUX", nommé Ubuntu sur Wikibooks, vous permet 
d'installer LINUX à partir de WINDOWS. 


° © UN H MACOS 


MAC OS est un descendant d'un UNIX BSD. C'est la Rolls-Royce des 
environnements. En effet il est extrêmement coûteux, alors que l'architecture 
logicielle d'origine était libre. Cela n'empêche pas de sérieux problèmes 
d'obsolescence programmée en 2018. 


Sur MAC OS, vous trouverez rarement des Logiciels gratuits. Comme 
WINDOWS, MAC OS est un système d'exploitation en location : Si vous 
changez les périphériques vous devez racheter l'environnement. 


MAC OSX était à l'origine sur architecture RISC, avec les processeurs 
POWER PC, puis ARM. On l'appelle aussi 10S, pour "je Système 
d'Exploitation". MAC OSX est aussi disponible sur processeur INTEL. 


+ © Cross-compiler 


La cross-compilation consiste à compiler d'une plate-forme vers une autre. 
Cela permet aussi de diffuser son exécutable vers des petites machines. 


Il est donc très intéressant de créer d'autres exécutables, sur d'autres 
processeurs, avec son PC. Il existe une règle: Plus on est proche de 
l'architecture utilisée, moins le travail de cross-compilation est important. 


Il est possible de télécharger une cross-compilation pour processeur ARM 
avec WIN CE, sur WINDOWS. 


Si vous voulez créer un exécutable pour LINUX ARM et GOOGLE PHONE, 
il est intéressant d'utiliser LINUX. ANDROID, le LINUX semi-propriétaire 
de GOOGLE, a gagné beaucoup de parts de marché en 2011. La Chine veut 
créer un environement ANDROIDD sans publicité en 2015. GOOGLE perdra 
alors beaucoup de chiffre d'affaire. 


On compile vers SYMBIAN OS avec WINDOWS. 


+ © SMARTPHONES 


En 2012, il existe différents tutoriels pour cross-compiler vers les 
SMARTPHONES ou vers les IPHONES : 
http://wiki.lazarus-ide/Smartphone_Development 


Des NETTOPS ARM permettent de programmer et tester des exécutables 
ARM ou bien de fournir des services consommant peu de ressources. 


Le compilateur FREE PASCAL est disponible sur LINUX et MAC ARM, 
donc sur ANDROID et IOS. L'OPEN GL 2D multi-plates-formes y est 
disponible grâce à ZEN GL pour LAZARUS. 


Vous avez dorénavant vos paquets de cross-compilation ARM sur LINUX. Si 
vous compilez un exécutable pour les processeurs ARM de la dernière 
génération, vos exécutables binaires seront en théorie compatible avec 
beaucoup de SMARTPHONES. II existe aussi le Byte Code PASCAL pour 
ANDROID ou REPLICANT sur LINUX. 


Le processeur ARM consomme peu de courant car il chauffe peu. Il est peu 
puissant, même s'il est possible d'y ajouter des processeurs CISC pour les 
graphismes. L'ARM est utilisé modifié, sans le dire, par APPLE dans les 
IPHONES et IPODS. 


Avec FPC UP DELUXE, cross-compilez sur votre plate-forme. 


Ensuite, dans LAZARUS, puis dans le menu “Projet”, puis "Options du 
projet”, puis "Cible", choisissez la bonne architecture voulue. Pour faire cela 
placez l'"OS de destination" comme "LINUX" si vous n'êtes pas sur GNU 
LINUX, puis le processeur ou "CPU de destination" comme "arm". 


Les plates-formes de téléphonie, de livres électroniques, ou de tablettes ont 
une configuration particulière. Elles disposent en plus de gadgets 
supplémentaires. 


Il est intéressant de tester directement après avoir compilé. C'est pourquoi les 
gadgets et la configuration peuvent être testés avec les SDK de chaque 
environnement, disponibles gratuitement ou pas. Les environnements de 
téléphones portables, les plus largement diffusés, disposent en général d'un 
SDK gratuit. 


APPLE propose ainsi de tester les Logiciels pour IPODS ou IPHONES avec 
un des derniers SDK pour MAC OSX. WIN CE peut être testé sous 


WINDOWS. GOOGLE propose des SDK sur l'ensemble des plates-formes 
afin de favoriser la richesse de son environnement. 


On cross-compile vers SYMBIAN OS sur WINDOWS, avec le SDK 
SYMBIAN. 


Tapez sur votre moteur de recherche "SDK SYMBIAN", "SDK ANDROID" 
"SDK IPHONE", ou "WIN-CE SDK". 


+ © JAVA et LAZARUS 


Il est possible de créer des exécutables JAVA avec LAZARUS. Si vous 
utilisez LAZARUS vous pouvez faire du JAVA et créer des exécutables 
standards. Cela permet de rester compatible avec la plate-forme ANDROID 
utilisant JAVA. 


Le langage PASCAL Objet permet de simplifier nettement le JAVA, afin de 
créer du Byte-Code JAVA léger. On peut prendre l'exemple des énumérations 
et des jeux d'énumérations, permettant de remplacer les constantes JAVA. II y 
a aussi le langage procédural permettant de se rapprocher du langage machine. 


Un exécutable JAVA est un ensemble de fichiers portant l'extension de fichier 
"class". Le fichier comportant la méthode publique "main" permet de lancer 
l'application JAVA. Les autres fichier ".class" sont en général un objet JAVA. 


Les ".class" sont du code semi-binaire appelé byte-code. La JVM ou Machine 
Virtuelle JAVA interprète ce byte-code pour l'exécuter. 


LAZARUS peut ou pourra transformer votre interface WINDOWS, LINUX 
ou MAC OS en interface ANDROID. 


Pour transformer votre Logiciel en Logiciel ANDROID installez la dernière 
version de JAVA SE sur http://www.oracle.com. Ensuite installez le dernier 
SDK ANDROID sur http://developer.android.com. 


Pour tester les Composants placez votre projet dans le bon répertoire du SDK 
ANDROID. 


Allez dans "Projet", puis "Options du projet", puis "Cible". Choisissez comme 
"Types de Composants Graphiques" "android”. 


© Cross-compiler 


Pour cross-compiler avec LAZARUS vous devrez peut-être installer un 
compilateur FREE PASCAL (FPC) plus ou moins récent. FPC UP DELUXE 
accompagnés de CODE TYPHON sont alors incontournables. 


Il existe toutes sortes d'aides pour cross-compiler sur différentes architectures. 
Tapez vos deux plates-formes suivies de "lazarus" sur un moteur de 
recherche. Vérifiez l'authenticité et la date de ce que vous téléchargez. 


À une version de FPC correspond une ou plusieurs versions de LAZARUS. Il 
est donc intéressant d'installer plusieurs LAZARUS pour cross-compiler. 


Il faut se méfier de certaines unités pour compiler. Si votre application est une 
Interface Homme-Machine, placez toujours l'unité Graphic au début du "uses" 
pour que certaines fonctions Windows soient éludées. Vous pouvez placer 
l'unité Graphic à la fin du "uses" si vous voulez utiliser toutes les fonctions de 
l'unité. 


Pour aller plus loin 
CREATIVE COMMON BY NC-ND 


+ © Cœurs multiples 


Avoir plusieurs cœurs sur un processeur permet de réduire les coûts pour la 
création d'un processeur. Mais ça rend le travail du programmeur plus 
difficile, car il doit les gérer. Il faut alors gérer des tâches qui s'exécutent en 
parallèle, grâce à une bibliothèque système pour le processeur. Elle est Libre 
et disponible sur lazaruscomponents.com, pour LAZARUS et DELPHI. 


+ © RUST, CRYSTAL et JULIA 


Les 3 nouveaux langages RUST, JULIA et CRYSTAL permettent d'accélérer 
et de sécuriser les vieux langages. Ces 3 langages ont été créés après la 
diffusion de la version 3.0 du compilateur FREE PASCAL. Des routines en 
assembleur 32 et 64 bits ont été inclues dans cette version. 


Le langage RUST sert à simplifier le C. Le C a été utilisé pour gérer la 
mémoire des processeurs CISC. Donc passer du € à RUST permet de 
sécuriser et de simplifier le C. 


Le langage JULIA permet de migrer de RUBY à du tout compilé. 


Le langage JULIA permet de fusionner toutes sortes de langages, notamment 
PYTHON et MATLAB. 


+ © C ou RUST vs PASCAL 


Le C et le PASCAL ont les mêmes objectifs économiques. Beaucoup d'autres 
langages s'en inspirent. Il est possible de sécuriser plus facilement le langage 
C avec RUST par exemple. RUST utilise le typage fort pour sécuriser 
facilement et s'inspire de PASCAL pour accélérer les logiciels. RUST est un 
langage très rapide non RAD en 2018. 


Le C, le RUST et le PASCAL permettent de créer vite des Logiciels rapides. 
le € ou RUST servent a créer l'environnement Logiciel ou des drivers, même 
si le PASCAL peut servir pour cela. Le C ou RUST sont idéaux pour réaliser 
des exécutables binaires en langage procédural. Par contre le langage 
PASCAL OBJET est idéal pour les applications complexes, étant plus simple 
d'utilisation. Revoir une architecture RAD consiste à optimiser ou créer des 
Composants RAD. 
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+ © JAVA vs LAZARUS 


Indéniablement le réseau LAZARUS manque encore de librairies 
concurrentes. Cependant, il existe toutes sortes de Composants Libres ou 
Open Source sur LAZARUS et DELPHI. 


LAZARUS ce sont les atouts de JAVA sans des contraintes de JAVA. 
LAZARUS optimise la création d'exécutables multi-plates-formes. Votre 
Logiciel sera optimisé pour les plates-formes allégées, grâce aux exécutables 
en code machine, aux Composants et à l'optimisation. 


LAZARUS crée des interfaces propres à chaque environnement, ou, comme 
JAVA, une interface propre à l'outil avec FPGUI. LAZARUS a besoin de 
votre participation pour cette interface. 


On peut se passer de JVM sous LAZARUS, ce moteur traduisant les 
exécutables JAVA en interfaces compréhensibles par l'utilisateur. Votre 
exécutable LAZARUS peut donc donc être plus rapide qu'un Logiciel JAVA 
sous une JVM, grâce en plus au BYTE-CODE PASCAL. 


Un serveur de pages HTML peut fonctionner avec seulement 128 Mo de 
mémoire et un processeur à faible consommation. La puissance processeur 
nécessaire aux serveurs est donc due à la compilation du code sur le serveur. 
Il est donc absurde d'utiliser PYTHON ou JAVA sur un serveur. PHP en plus 
n'est pas sécurisé. 


Vous pouvez cependant créer des exécutables JAVA avec LAZARUS, qui 
seront exécutés dans la JVM. À ce propos les librairies STEAM et 
ALLEGRO permettent de créer des applications graphiques à la fois pour 
ANDROID, 10S, LINUX, WIN-CE, voire WII. 


Votre exécutable LAZARUS est aussi suffisamment complet pour être 
indépendant de librairies. La plupart des librairies utilisées par LAZARUS ne 
sont pas nécessaires à votre exécutable. Votre exécutable devient rapide et 
autonome. Les Sources s'adaptent facilement. Votre Logiciel se maintient 
aisément. 


Vous ne connaissez peut-être pas les BEANS sous JAVA. La partie 
Composant des BEANS JAVA ne permet pas de gagner autant de temps que 
les Composants de DRA. On appelle cela la LCL sur LAZARUS, pour 
Librairie de Composants LAZARUS. Dans LAZARUS, même les 
Composants non visuels sont dans cette librairie. 


JAVA nécessite la réinvention d'un nouvel EDI afin de gagner du temps. Il 
faut à chaque fois changer de Framework, les plus récents devant se 
réinventer pour gagner du temps. LAZARUS est déjà optimisé pour gagner du 
temps. Si on crée un deuxième EDI, on améliore LAZARUS pour arriver à 
ses fins. 


L'inspecteur d'Objets permet de mettre en place rapidement tout Composant. 
Vous gagnez un temps précieux à créer des Composants, en Développement 
Rapide d'Applications, contrairement à JAVA. Des paquets de Composants 
peuvent être éludés, allégeant l'exécutable, ce que ne peut pas faire JAVA. 


Dans LAZARUS ou DELPHI, tout Composant est facilement remplaçable par 
un autre. Il suffit pour cela de changer le type du Composant dans le fichier 
PASCAL et dans la Source du formulaire, puis de rouvrir le formulaire en 
visuel. On peut ensuite créer un programme pour migrer. 


La programmation par Objets permet de créer des interfaces proches de 
l'humain. Elle est au sein de JAVA et de LAZARUS. Contrairement à JAVA, 
LAZARUS permet d'utiliser une programmation proche de l'humain et une 
programmation proche de l'ordinateur, la programmation Procédurale. En effet 
une programmation proche de l'humain ralentit votre exécutable. 


Je recherche toujours en JAVA la possibilité de facilement connaître le 
périmètre de mes Composants. En effet UML définit les Composants afin de 
permettre de gagner du temps. JAVA permet difficilement de définir des 
Composants réutilisables facilement. 


+ © VIRTUAL PASCAL 


FREE PASCAL est un compilateur écrit en C. Il existe un compilateur qui 
pourrait être plus rapide, car il a été écrit en assembleur. Il était disponible 
sous WINDOWS et GNU LINUX. Mais il a été abandonné parce qu'il était 
trop difficilement améliorable. En effet, l'assembleur, langage de la machine, 
est un langage très long à programmer. Aussi VIRTUAL PASCAL n'était 
qu'en 32 bits. 


Pour améliorer vos traitements informatiques en plus de la gestion en parallèle 
de cœurs multiples de votre processeur, FREE PASCAL 3.0 intègre ses 
routines répétées de VIRTUAL PASCAL. 


Après FREE PASCAL 3.0, de nouveaux compilateurs ont été créés, 
notamment RUST pour le C, Julia pour PYTHON et MATHLAB, Crystal 
pour RUBY. 
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. Retrouver un 


mot 


Atbsicaminn permet le Polymor 


phisme en orienté Objet en créant 


une classe abstraite qui sera renseignée avec ses classes filles. 


Appiccatiorrmettant de réaliser uhe ou plusieurs tâches. 


| Ragimourf&mt, ce terme anglais 


désigne la punaise, qui mange les 


circuits électroniques. Cette punaise créait des erreurs. Les 


programmeurs se sont déchargé 
pour les attribuer à cet animal. 
BgseflCbders ".class"” JAVA con 


S alors des erreurs dans le Code, 


tiennent du Byte Code. Le Byte 


Code, comme avec Python, c'est 


du Code semi-compilé. Compiler 


du Byte Code permet de compiler sur différentes plateformes plus 
facilement (cf Cross-Compilation LAZARUS ). 


GlierfaSeiweurielle connectée à un serveur de données au sein d'un 


Eosemble de 0 et de 1 créés par 1 


réseau interne. On peut aussi appeler ce genre d'interface du deux 
üers. Un serveur de données dialogue avec son application. 


e compilateur. Le Code sert à agir 


sur l'ordinateur. 


Pgpitateur reprenant les différentes Sources de Code pour les 


compiler en un langage machine 
processeur. 


, des O et des 1 exécutables par le 


Panpoéailisable et centralisée de ses Logiciels. 


Composant Rislèn place facilement grâce à l'EDI. 


| Ufihodetparamétrée permettant 


de créer les variables d'un Objet 


et de l'initialiser. On déclare 
commençant par "constructor". 
Déthadæparamétrée permettant 


cette méthode particulière en 


de détruire les Objets d'un Objet. 


commençant par "destructor". 
Eblcanhôient de 


Développement 


En PASCAL Objet on déclare cette méthode particulière en 


Intégré, ou Integrated 


Development Environment en anglais. LAZARUS est un EDIT. Il 


permet de créer un Logiciel 
homogènes. 


grâce à un ensemble d'outils 


EffibabargéwEstiptdcedun Logiciel dans du matériel électronique. 


Bécipailatisopermettant de réutil 


iser une partie d'un Objet. 


Porcéchrre ou Méthode paramétrée retournant une variable. 


| Eorke d'un projet Libre ou Open 


Source. 


| SBavoswanke Logiciel réutilisablé permettant de réaliser un certain 


nombres de tâches. 


Pérégés permettant à un Objet d'hériter d'un autre Objet. 


HibémiereriPiRlétépapdiddètle, 


ou Model Driven Engineering en 


anglais, est l'utilisation par un In 


génieur d'un Modèle afin de créer 


un Logiciel. Un Framework LAZARUS peut modéliser votre 


Logiciel afin de le créer. 


Etembe de Composants et d'outils permettant des fonctionnalités 


ou un gain de temps. 


Uibræréation ou un Logiciel Libre c'est une création pour laquelle 


la licence Libre permet de : 
® Étudier la Source. 


e 
® Modifier le Logiciel ou la 
e 
e 


Diffuser commercialemen 
Une licence Libre peut être : 


Utiliser la création librement. 


création. 


Dupliquer tout ce qui a été fait. 


t ou pas ce qui a été créé. 


® Virale : La communauté grandit facilement, car on est 
obligé de diffuser la Source modifiée ou le Logiciel 
l'utiisant. La licence Libre virale la plus connue est la 
licence GPL qui est utilisée pour partie avec LAZARUS. 


création peut être modifiée 
oir aucune contrainte de diffusion 


forcée de la Source. La licence BSD est une licence 


© Entièrement Libre. La 
commercialement sans av 
entièrement Libre. 

e 


Du domaine public, car le 
commerciaux ou l'œuvre 
d'auteur terminée. En gén 


le projet du domaine public. 


Eogècndlle de traitements permett 


s auteurs ont abandonné les droits 
a vu sa période de fin de droits 
éral il est possible de s'approprier 


ant la résolution de tâches. 


Métiéolre ou fonction dans un Objet. Une méthode peut être 


encapsulée ou surchargée. 


Dpetl{AmaQbpouekro grmanaiÿ 


ReOUgst) systèmes d'informations 


proche de l'humain. Elle offre une architecture compréhensible par 


la machine. On représente toute 
Objet qui dispose de propriét 
propriétés d'un Objet sont 
l'Encapsulation, l'Abstraction. E 


ntité abstraite ou concrète par un 
s Objet. Les quatre genres de 
l'Héritage, le Polymorphisme, 
En respectant ces propriétés, on 


crée un programme d'Objets disposant de spécificités propres au 


langage utilisé. 
PipjatSoëwerces partagées. Il p 


eut être possible de participer au 


l'entreprise. 
Bodiaatentenant une carte mère 


projet en fonction de Ia licénce et de la disponibilité de 


le Support), un processeur (l'unité 


Paqgtt LAZARUS permettant 


de calculs), de la mémoire, d'éven 


tuels périphériques. 


de réunir et d'installer des 


Composants. 
Räwchfication à ajouter à un ex 


écutable. Le patch augmente ou 


diminue la taille de l'exécutable. 


Poimteinteur permet de stocker lés variables pour les retrouver. Un 


pointeur est une adresse pointant vers un endroit de la mémoire. 


Poivédérpkremettant par différentes manières de réutiliser plusieurs 


Objets en même temps. Le Polÿmorphisme est résolu par le type 
Objet "interface" permettant de dénommer les méthodes 
communes de futurs Objets. 


BautédiæeCode commençant par la déclaration implémentée et 


paramétrable "procedure", délimitée par un "Begin" et un "End". 


Pescéthgrabes procéduraux sont des langages non Objets. IIS sont 
ékcimigagæirés selon des unités de procédures et fonctions s'appelant 


entre elles. Le langage PASCAL était au début un langage 
uniquement procédural. 


Propoétaned Prdimiéitere ne diffuse aucune source. IT est restreint. 


WINDOWS est Privateur dans le sens où c'est un Système 
d'Exploitation en location. En effet, vous êtes restreint au niveau 
du matériel par la nécessité de rester compatible avec les dernières 
Applications payantes. 


RAou ABpication Development. Développement Rapide 


d'Applications grâce à un EDIT où une librairie. 


KRarténlepmroute en mot à mot. 


Document ou outil de planificati 
Reuett&® qui permet de créer 


n des évolutions. 


son Logiciel. Il est intéressant 


d'utiliser des projets Open So 
travailler dans le flou. 


urce ou Libres afin de ne pas 


OwÉmadEnxpianttibogiciel démarré à partir d'un disque dur ou 


d'une carte flash. Ce Logiciel permet d'utiliser son Ordinateur. 


Unis ägphcation trois tiers pas 


se par trois intermédiaires pour 


afficher des données. En serveur de données dialogue avec un 


serveur web ou trois tiers. Ce 
avec un ou plusieurs naviga 


serveur dialogue respectivement 
teurs web, ou bien avec une 


application associée au serveur trois tiers. 
Défiaition d'une variable permettant de [a manipuler facilement 


grâce au compilateur. 
UMfied Modeling Language ou 


Langage Unifié de Modélisation. 


Boîte à outils de modèles d'ana 
basé sur la programmation Objet 
Naætiaæblée la mémoire, définie 


Iyse servant à analyser un projet 


par un type, pouvant varier à 


l'exécution. Une variable stocke 
adresses, Objets, etc. 


des chiffres, ou bien des lettres, 


Kébau maillé pouvant contenir un nombre presque illimité 


d'ordinateurs, grâce au protocole 
Les ordinateurs utilisent un navi 
applications participatives, dites 
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IPV6. 
teur Web, qui peut accéder aux 
eb 2.0. 
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